data(STATegRa_S3)
## Create ExpressionSets
# Block1 - Expression data
B1 <- createOmicsExpressionSet(Data=Block1.PCA,pData=ed.PCA,pDataDescr=c("classname"))
# Block2 - miRNA expression data
B2 <- createOmicsExpressionSet(Data=Block2.PCA,pData=ed.PCA,pDataDescr=c("classname"))
## Model Selection
ms <- modelSelection(Input=list(B1,B2),Rmax=4,fac.sel="single%",
varthreshold=0.03)
ms
Run the code above in your browser using DataLab