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="")
ex.acgh <- create.aCGH(log2.ratios, clones.info)
## Imputing the log2 ratios
hmm(ex.acgh) <- find.hmm.states(ex.acgh, aic = TRUE, delta = 1.5)
log2.ratios.imputed(ex.acgh) <- impute.HMM(ex.acgh)
Run the code above in your browser using DataLab