# NOT RUN {
X <- matrix(0.3 * rnorm(100) + 2.5, ncol = 2)
y <- c(rep(0, times = 25), rep(1, times = 25))
mdl <- model(X, y)
x_prd <- matrix(0.3 * rnorm(100) + 4.5, ncol=2)
y_hat <- predict(mdl, x_prd)
# }
Run the code above in your browser using DataLab