> bag.fsr(x=ncaa2[,1:19],y=ncaa2$y,B=100)->out.ncaa Loading required package: leaps > names(out.ncaa) [1] "coeff.av" "coeff.sd" "interc.av" "pred" "interc.sd" "prop" [7] "amean" "sizem" Coefficent estimates > round(out.ncaa$coeff.av,3) [1] 0.020 2.934 0.237 0.768 0.227 0.106 -2.373 -0.333 1.429 0.000 [11] 0.032 -0.105 0.017 0.038 0.000 0.055 -0.046 -0.032 0.015 Bootstrap standard deviations of coeff. estimates > round(out.ncaa$coeff.sd,3) [1] 0.052 0.965 0.145 0.313 0.146 0.133 1.614 0.509 1.720 0.000 0.123 0.278 [13] 0.049 0.244 0.000 0.159 0.084 0.072 0.063 Proportion of times variable appears in selected model > round(out.ncaa$prop,3) [1] 0.15 0.99 0.80 0.93 0.75 0.41 0.75 0.33 0.45 0.22 0.14 0.13 0.12 0.17 0.24 [16] 0.19 0.25 0.22 0.13 Mean of estimated alpha-to-enter > round(out.ncaa$amean,4) [1] 0.0396 Mean size of selected model > round(out.ncaa$sizem,4) [1] 7.37