#### For this example, we run cytoband CIN calculation for one setting on chromosome 1 only
data("grl.data") #need segment level data
#getting genome reference file
data("hg18.ucsctrack")
hg18.ucsctrack.chr <- subset(hg18.ucsctrack, seqnames(hg18.ucsctrack) %in% "chr22")
#get probe annotation information
data("cnvgr.18.auto")
#Call function to run cytoband CIN
run.cin.cyto(grl.seg = grl.data, cnvgr=cnvgr.18.auto, snpgr=NULL,
genome.ucsc = hg18.ucsctrack.chr, thr.gain = 2.25,thr.loss = 1.75,
V.def = 3, V.mode="sum",chr.num = 22)
#Run cytoband level CIN calculation for all thresholds. This is how command should be run:
## Not run:
# run.cin.cyto(grl.seg = grl.data, cnvgr=cnvgr.18.auto, snpgr=snpgr.18.auto,
# genome.ucsc = hg18.ucsctrack)
# ## End(Not run)
# A number of RData objects will be created in 'output_cyto' folder.
Run the code above in your browser using DataLab