## Not run:
# setwd("/some/path/to/cel/files")
# data <- ProcessCels()
# # process cel files
# samples <- c(1,2)
# # select samples 1 and 2 to compare against the rest
# chromosomeStats(data,chromNum="ALL",samples=samples)
# # check for chromosomal gains
# chromosomeStats(data,chromNum="ALL",samples=samples,alternative="less")
# # check for chromosomal losses
# bandStats(data,chromNum=1,samples=samples)
# # check for band gains in chr1
# bandStats(data,chromNum=1,samples=samples,alternative="less")
# # check for band losses in chr1
# rawPlot(data,chromNum=1,samples=samples,idiogram=TRUE)
# # plot raw data with an ideogram
# slidPlot(data,chromNum=1,samples=samples,idiogram=TRUE,combine=TRUE,k=100)
# # moving average plot with ideogram
# discontPlot(data,chromNum=1,samples=samples,idiogram=TRUE)
# # discontinuous plot with ideogram
#
# ## End(Not run)
Run the code above in your browser using DataLab