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