## predict.cv.biglasso
data(heart)
X <- as.matrix(heart[,1:9])
y <- heart$chd
X <- as.big.matrix(X)
## Not run:
# cvfit <- cv.biglasso(X, y, penalty = 'lasso', family = "binomial")
# coef(cvfit)
# predict(cvfit, X, type = "response")
# predict(cvfit, X, type = "link")
# predict(cvfit, X, type = "class")
# ## End(Not run)
Run the code above in your browser using DataLab