set.seed(314)
xran=matrix(rnorm(200),20,10)
yran=rnorm(20)
xran_norm <- boost.normalize(xran)
xran_corr<- boost.compcorrs(xran_norm)
xran_corr_sign <- boost.correlation_sign(xran_corr)
xran_groups <- boost.findgroups(xran_corr, group=group_func_1, .3)
xran_groups_2 <- boost.findgroups(xran_corr, group=group_func_2, .3)
xran_Xpass <- boost.Xpass(nrow(xran_norm),ncol(xran_norm))
xran_adjust <- boost.adjust(xran_norm, xran_groups$groups, xran_corr_sign)
#Not meaningful, should be run with B>=100
xran_random <- boost.random(xran_norm, xran_Xpass, xran_adjust$vmf.params, B=5)
# \donttest{
xran_random <- boost.random(xran_norm, xran_Xpass, xran_adjust$vmf.params, B=100)
# }
xran_apply <- boost.apply(xran_norm, xran_random, yran, lasso_msgps_AICc)
xran_select <- boost.select(xran_apply)
Run the code above in your browser using DataLab