# NOT RUN {
# load data
data(classData)
data(PCGroups)
x = classData$Exp
y = classData$Label
PC.Human <- getPCGroups(Groups = PCGroups, Organism = "Human",
Type = "GeneSymbol")
# fit PCLasso2 model
fit.PCLasso2 <- PCLasso2(x, y, group = PC.Human, penalty = "grLasso")
# plot the norm of each group
plot(fit.PCLasso2, norm = TRUE)
# plot the individual coefficients
plot(fit.PCLasso2, norm = FALSE)
# }
Run the code above in your browser using DataLab