datadir <- system.file(package = "aCGH")
datadir <- paste(datadir, "/examples", sep="")
clones.info <-
read.table(file = file.path(datadir, "clones.info.ex.txt"),
header = TRUE, sep = "\t", quote="", comment.char="")
log2.ratios <-
read.table(file = file.path(datadir, "log2.ratios.ex.txt"),
header = TRUE, sep = "\t", quote="", comment.char="")
pheno.type <- read.table(file = file.path(datadir, "pheno.type.ex.txt"),header = TRUE, sep = "\t", quote="", comment.char="")
ex.acgh <- create.aCGH(log2.ratios, clones.info, pheno.type)
ex.acgh <-
aCGH.process(ex.acgh, chrom.remove.threshold = 23, prop.missing = .25,
sample.quality.threshold = .4, unmapScreen=TRUE, dupRemove = FALSE)
ex.acgh
Run the code above in your browser using DataLab