## Not run:
# ## define paths
# scmdir <- "/common/path/schemes"
# libdir <- "/my/path/Affy/libraryfiles"
# anndir <- "/my/path/Affy/Annotation"
#
# ## create scheme for Test3 GeneChip
# scheme.test3.na32 <- import.expr.scheme("Scheme_Test3_na32", filedir=scmdir,
# schemefile=file.path(libdir, "Test3.CDF"),
# probefile=file.path(libdir, "Test3_probe.tab"),
# annotfile=file.path(anndir, "Test3.na32.annot.csv"))
#
# ## access ROOT scheme file from new R session
# scheme.test3 <- root.scheme(file.path(scmdir, "Scheme_Test3_na32.root"))
#
#
# ## create scheme for HG-U133_Plus_2 GeneChip
# scheme.hgu133p2.na32 <- import.expr.scheme("Scheme_HGU133p2_na32", filedir=scmdir,
# schemefile=file.path(libdir, "HG-U133_Plus_2.cdf"),
# probefile=file.path(libdir, "HG-U133-PLUS_probe.tab"),
# annotfile=file.path(anndir, "HG-U133_Plus_2.na32.annot.csv"))
#
# ## access ROOT scheme file from new R session
# scheme.hgu133p2 <- root.scheme(file.path(scmdir, "Scheme_HGU133p2_na32.root"))
# ## End(Not run)
Run the code above in your browser using DataLab