# NOT RUN {
# prepare the data
x <- t.housing[, -ncol(t.housing)]
y <- t.housing$V9
# one-stage algorithm
out.sgpv.1 <- pro.sgpv(x = x, y = y, stage = 1)
# plot the selection result
plot(out.sgpv.1)
# two-stage algorithm
out.sgpv.2 <- pro.sgpv(x = x, y = y)
# plot the fully relaxed lasso solution path and final solution
plot(out.sgpv.2)
# zoom in a little bit
plot(out.sgpv.2, lambda.max = 0.01)
# only plot one confidence bound
plot(out.sgpv.2, lpv = 1, lambda.max = 0.01)
# }
Run the code above in your browser using DataLab