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