## first, load ROOT scheme file and ROOT data file
scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
data.test3 <- root.data(scheme.test3, paste(path.package("xps"),"rootdata/DataTest3_cel.root",sep="/"))
data.rma <- rma(data.test3,"tmp_Test3RMA",tmpdir="",background="pmonly",normalize=TRUE,verbose=FALSE)
## get data.frame
expr.rma <- validData(data.rma)
head(expr.rma)
## plot results
if (interactive()) {
boxplot(data.rma)
boxplot(log2(expr.rma))
}
rm(scheme.test3, data.test3)
gc()
## Not run:
# ## examples using Affymetrix human tissue dataset (see also xps/examples/script4exon.R)
# ## first, load ROOT scheme file and ROOT data file from e.g.:
# scmdir <- "/Volumes/GigaDrive/CRAN/Workspaces/Schemes"
# datdir <- "/Volumes/GigaDrive/CRAN/Workspaces/ROOTData"
#
# ## 1. example - expression array, e.g. HG-U133_Plus_2:
# scheme.u133p2 <- root.scheme(paste(scmdir,"Scheme_HGU133p2_na25.root",sep="/"))
# data.u133p2 <- root.data(scheme.u133p2, paste(datdir,"HuTissuesU133P2_cel.root",sep="/"))
#
# workdir <- "/Volumes/GigaDrive/CRAN/Workspaces/Exon/hutissues/u133p2"
# data.rma <- rma(data.u133p2,"MixU133P2RMA",filedir=workdir,tmpdir="",
# background="pmonly",normalize=TRUE)
#
# ## 2. example - whole genome array, e.g. HuGene-1_0-st-v1:
# scheme.genome <- root.scheme(paste(scmdir,"Scheme_HuGene10stv1r3_na25.root",sep="/"))
# data.genome <- root.data(scheme.genome, paste(datdir,"HuTissuesGenome_cel.root",sep="/"))
#
# workdir <- "/Volumes/GigaDrive/CRAN/Workspaces/Exon/hutissues/hugene"
# data.g.rma <- rma(data.genome,"HuGeneMixRMAMetacore",filedir=workdir,tmpdir="",
# background="antigenomic",normalize=T,exonlevel="metacore+affx")
#
# ## 3. example - exon array, e.g. HuEx-1_0-st-v2:
# scheme.exon <- root.scheme(paste(scmdir,"Scheme_HuEx10stv2r2_na25.root",sep="/"))
# data.exon <- root.data(scheme.exon, paste(datdir,"HuTissuesExon_cel.root",sep="/"))
#
# workdir <- "/Volumes/GigaDrive/CRAN/Workspaces/Exon/hutissues/exon"
# data.x.rma <- rma(data.exon,"MixRMAMetacore",filedir=workdir,tmpdir="",background="antigenomic",
# normalize=T,option="transcript",exonlevel="metacore")
# ## End(Not run)
Run the code above in your browser using DataLab