### R代码来自vignette源的vignettes/CCl4/inst/doc/CCl4。Rnw ' ################################################### ### 代码块1号:loadlib ################################################### 库(Biobase)图书馆(limma)库(“亚兰 ") ################################################### ### 代码块2号:datapath公司 ################################################### datapath公司=系统。文件(“extdata”,包= "亚兰 ") ################################################### ### 代码块3号:RGList ################################################### p = read.AnnotatedDataFrame(“samplesInfo.txt”,路径= datapath公司)CCl4_RGList = read.maimages(文件= sampleNames (p),路径= datapath公司,来源=“genepix”,列=列表(R =“F635值”,Rb =“B635值”,G =“F532值”,Gb = " B532值 ")) ################################################### ### 代码块4号:outdir ################################################### outdir = file.path ("..", "..", " 数据”)如果(! isTRUE (file.info (outdir) isdir美元))outdir = tempdir (CCl4_RGList、文件=()保存文件。路径(CCl4_RGList.RData outdir。 ")) ################################################### ### 代码块5号:tempdir ################################################### outdir ################################################### ### 代码块6号:CCl4-NChannelSet ################################################### featureData = new("AnnotatedDataFrame"， data = CCl4_RGList$genes) assayData = with(CCl4_RGList, assayDataNew(R=R, G=G, Rb=Rb, Gb=Gb)) varMetadata(p)$channel=factor(c("G"， "R"， "G"， "R")， levels=c(ls(assayData)， "_ALL_")) CCl4 <- new("NChannelSet"， assayData = assayData, featureData = featureData, phenoData = p) save(CCl4, file = file。路径(CCl4.RData outdir。 ")) ################################################### ### 代码块7号:sessionInfo ################################################### sessionInfo ()