# \donttest{
set.seed(42)
n_obs <- 50
X_toy <- data.frame(
FeatureA = rnorm(n_obs),
FeatureB = runif(n_obs, 0, 100)
)
y_toy <- factor(sample(c("Control", "Case"), n_obs, replace = TRUE),
levels = c("Control", "Case"))
# Train the model
nb_model <- nb_dia(X_toy, y_toy)
print(nb_model)
# }
Run the code above in your browser using DataLab