#------------------------------------------------------------
# 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