1> library(data.table); setDTthreads(2); library(QCtreeCNV) 2> cnvs <- fread(“results/autosome.cnv”) 3> qc <- fread(“results/autosome.qc”) 4> loci <- fread(“loci.txt”) 5> samples <- fread(“samples_list.txt”) 6> 7> put_cnvs <- qctree_pre(loci, cnvs, qc, samples) 8> 9> cnvrs <- cnvr_fast(put_cnvs) Code block 1.