# NOT RUN {
#------------------------------------------------------------
# Example 1: leukemia data
#------------------------------------------------------------
data(leukemia, package = "spikeslab")
sparsePC.out <- sparsePC(x = leukemia[, -1], y = leukemia[, 1], n.rep = 3)
rf.obj <- sparsePC.out$rf.obj
varImpPlot(rf.obj)
# }
Run the code above in your browser using DataLab