## Logistic regression
data(heart)
X <- as.matrix(heart[,1:9])
y <- heart$chd
X <- as.big.matrix(X)
fit <- biglasso(X, y, penalty = 'lasso', family = "binomial")
coef(fit, lambda=0.05, drop = FALSE)
predict(fit, X, type="link", lambda=0.05)
predict(fit, X, type="response", lambda=0.05)
predict(fit, X, type="class", lambda=0.1)
predict(fit, type="vars", lambda=c(0.05, 0.1))
predict(fit, type="nvars", lambda=c(0.05, 0.1))
Run the code above in your browser using DataLab