if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
ALL$BTtype <- as.factor(substr(ALL$BT,0,1))
resultLasso <- lassoReg(object = ALL[1:100,], covariate = "age")
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