# Create dummy vectorized data
train_matrix <- matrix(runif(100), nrow = 10)
test_matrix <- matrix(runif(50), nrow = 5)
y_train <- factor(sample(c("P", "N"), 10, replace = TRUE))
# Run model
model_results <- logit_model(train_matrix, y_train, test_matrix)
print(model_results$pred)
Run the code above in your browser using DataLab