# NOT RUN {
#--- data simulation ---
n <- 50; p <- 100
y <- rnorm(n=n)
X <- matrix(rnorm(n*p),nrow=n,ncol=p)
# n samples, p features
#--- model fitting ---
object <- starnet(y=y,X=X)
# "base": one model for each alpha
# "meta": model for stacking them
#--- make predictions ---
y_hat <- predict(object,newx=X)
# one column for each alpha,
# and for tuning and stacking
#--- extract coefficients ---
coef <- coef(object)
# scalar "alpha": intercept
# vector "beta": slopes
#--- model comparison ---
# }
# NOT RUN {
loss <- cv.starnet(y=y,X=X)
# }
# NOT RUN {
# cross-validated loss for different alpha,
# and for tuning and stacking
# }
Run the code above in your browser using DataLab