## Not run:
# ## load ROOT scheme file
# scmdir <- "/Volumes/GigaDrive/CRAN/Workspaces/Schemes"
# scheme.exon <- root.scheme(paste(scmdir,"Scheme_HuEx10stv2r2_na27.root",sep="/"))
#
# ## load subset of ROOT data file
# datdir <- "/Volumes/GigaDrive/CRAN/Workspaces/ROOTData"
# subnames <- c("HeartA","HeartB","HeartC", "MuscleA","MuscleB","MuscleC")
# sub.exon <- root.data(scheme.exon, rootFile(data.exon), celnames=subnames)
#
# ## firma
# outdir <- getwd()
# sub.firma.ps <- firma(sub.exon,"HeartMuscleFIRMAcorePS",filedir=outdir,tmpdir="",background="antigenomic",
# normalize=TRUE,option="probeset",exonlevel="core")
#
# ## get transcript expression levels for all transcripts or transcript=2429277
# expr.firma <- firma.expr(sub.firma.ps, probeset=NULL, option="transcript")
# expr.firma <- firma.expr(sub.firma.ps, probeset=2429277, option="transcript")
#
# ## get probeset expression levels for all probeset or probeset=2429278 or transcript=2429277
# expr.firma <- firma.expr(sub.firma.ps, probeset=NULL, option="probeset")
# expr.firma <- firma.expr(sub.firma.ps, probeset=2429278, option="probeset")
# expr.firma <- firma.expr(sub.firma.ps, probeset=2429277, option="probeset")
#
# ## get probeset splice scores for all probeset or probeset=2429278 or transcript=2429277
# score.firma <- firma.score(sub.firma.ps, probeset=NULL, option="probeset")
# score.firma <- firma.score(sub.firma.ps, probeset=2429278, option="probeset")
# score.firma <- firma.score(sub.firma.ps, probeset=2429277, option="probeset")
#
# ## different plots
# boxplot(sub.firma.ps, which="UnitName:LEVEL_PS")
# boxplot(sub.firma.ps, which="UnitName:LEVEL_TS")
#
# hist(sub.firma.ps, which="UnitName:LEVEL_PS")
# hist(sub.firma.ps, which="UnitName:LEVEL_TS")
#
# rleplot(sub.firma.ps, which="UnitName:LEVEL_PS")
# rleplot(sub.firma.ps, which="UnitName:LEVEL_TS")
#
# nuseplot(sub.firma.ps, which="UnitName:STDEV_PS")
# nuseplot(sub.firma.ps, which="UnitName:STDEV_TS")
# ## End(Not run)
Run the code above in your browser using DataLab