if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
ALL$BTtype <- as.factor(substr(ALL$BT,0,1))
resultLasso <- lassoClass(object = ALL, groups = "BTtype")
plot(resultLasso, label = TRUE,
main = "Lasso coefficients in relation to degree of
penalization.")
featResultLasso <- topTable(resultLasso, n = 15)
}
Run the code above in your browser using DataLab