# NOT RUN {
data("admixed")
fit <- ggmix(x = admixed$xtrain,
y = admixed$ytrain,
kinship = admixed$kin_train)
hdbic <- gic(fit)
# plot solution path
plot(fit)
# plot HDBIC curve as a function of lambda
plot(hdbic)
# }
Run the code above in your browser using DataLab