data(colorectal)
#cluster all samples using imputed data on all chromosomes (autosomes and X):
clusterGenome(colorectal)
#cluster samples within sex groups based on 3 chromosomes individually.
#use non-imputed data and do not show dendogram. Indicate amplifications and
#homozygous deletions.
clusterGenome(colorectal, response = phenotype(colorectal)$sex,
byclass = TRUE, showaber = TRUE, vecchrom = c(4,8,9),
dendPlot = FALSE, imp = FALSE)
#cluster samples based on each chromosome individualy and display age. Show
#gains in red and losses in green. Show aberrations and use values < -1
#to identify homozgous deletions. Do not show dendogram.
pdf("plotimages.pdf", width = 11, height = 8.5)
for (i in 1:23)
clusterGenome(colorectal,
response = phenotype(colorectal)$age,
chrominfo = human.chrom.info.Jul03,
cutoff = 1, ncolors = 50, lowCol="green",
highCol="red", midCol="black", byclass = FALSE,
showaber = TRUE, homdel = -1, vecchrom = i,
titles = "Image Plot", methodS = "ward",
dendPlot = FALSE, categoricalPheno = FALSE)
dev.off()
Run the code above in your browser using DataLab