A function to print scout output
The results of a call to the "scout" function.
additional arguments; these are ignored.
Daniela M. Witten and Robert Tibshirani
Witten, DM and Tibshirani, R (2008) Covariance-regularized regression and classification for high-dimensional problems. Journal of the Royal Statistical Society, Series B 71(3): 615-636. <http://www-stat.stanford.edu/~dwitten>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
library(lars) data(diabetes) attach(diabetes) # Split data into training and test set training <- sample(nrow(x2),floor(nrow(x2)/2)) xtrain <- x2[training,] ytrain <- y[training] xtest <- x2[-training,] ytest <- y[-training] # Done splitting data into training and test set # Fit Model scout.object <- scout(xtrain,ytrain,p1=1,p2=1,lam1s=c(0.001,0.1),lam2s=c(0.01,0.2)) print(scout.object) # Done Fitting Model detach(diabetes)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.