dataDir <- system.file("extdata", package="DFP"); dataDir
fileExprs <- file.path(dataDir, "exprsData.csv"); fileExprs
filePhenodata <- file.path(dataDir, "pData.csv"); filePhenodata
rmadataset <- readCSV(fileExprs, filePhenodata); rmadataset
pData(phenoData(rmadataset))
exprs(rmadataset)[1:10,1:5]
Run the code above in your browser using DataLab