filePath <- system.file("extdata", "Affy_cytoScan.cyhd.CN5.CNCHP.txt.bz2",
package = "rCGH")
cgh <- readAffyCytoScan(filePath, sampleName = "AffyScHD")
# When supplementary information is added,
# numerical, logical, or strings are supported
setInfo(cgh, "someItem1") <- 35
setInfo(cgh, "someItem2") <- TRUE
setInfo(cgh, "someItem3") <- "someComment"
getInfo(cgh)
# or to get back specific items
getInfo(cgh, c("someItem1", "someItem3"))
Run the code above in your browser using DataLab