filePath <- system.file("extdata", "Affy_cytoScan.cyhd.CN5.CNCHP.txt.bz2",
package = "rCGH")
object1 <- readAffyCytoScan(filePath, sampleName = "AffyScHD")
object2 <- adjustSignal(object1, nCores=1)
object3 <- EMnormalize(object2)
object4 <- segmentCGH(object3, nCores=1)
# Static visalizations
plotDensity(object4)
multiplot(object4)
## Not run:
# # Interactive visalizations
# view(object4)
# ## End(Not run)
Run the code above in your browser using DataLab