set.seed(123)
n <- 100
n_pos <- round(0.2 * n)
n_neg <- n - n_pos
X <- rbind(
matrix(rnorm(2 * n_neg, mean = -1), ncol = 2),
matrix(rnorm(2 * n_pos, mean = 1), ncol = 2)
)
y <- c(rep(-1, n_neg), rep(1, n_pos))
fit <- roclearn(X, y, lambda = 0.1, penalty = "ridge", approx=TRUE)
Run the code above in your browser using DataLab