if (isRCloud()) { # disabled on local configs
# so as not to affect package building process
# In ArrayExpressHTS/expdata there is testExperiment, which is
# a very short version of E-GEOD-16190 experiment, placed there
# for testing reasons.
#
# Experiment in ArrayExpress:
# http://www.ebi.ac.uk/arrayexpress/experiments/E-GEOD-16190
#
# the following piece of code will take ~1.5 hours to compute
# on local PC and ~10 minutes on R-Cloud
#
# if executed on a local PC, make sure tools are available
# to the pipeline.
#
# create a temporary folder where experiment will be copied
# computing experiment in the package folder may cause issues
# with file permissions and therefore failures.
#
#
srcfolder <- system.file("expdata",
"testExperiment", package="ArrayExpressHTS");
dstfolder <- tempdir();
file.copy(srcfolder, dstfolder, recursive = TRUE);
# run the pipeline
#
# set usercloud = FALSE if executing on local PC,
# therefore parallel computation will be disabled
#
aehts = ArrayExpressHTSFastQ(accession = "testExperiment",
organism = "Homo_sapiens", dir = dstfolder);
# load the expression set object
loadednames = load(paste(dstfolder,
"/testExperiment/eset_notstd_rpkm.RData", sep=""));
loadednames;
get('library')(Biobase);
# print out the expression values
#
head(assayData(eset)$exprs);
# print out the experiment meta data
experimentData(eset);
pData(eset);
}
Run the code above in your browser using DataLab