knitr::opts_chunk$set(echo = TRUE)
#install.packages("caret") library(caret) library(EHData) data <- read.csv("D:\\Rstudio\\Cuny_622\\Space\\train.csv") test_data <- read.csv("D:\\Rstudio\\Cuny_622\\Space\\test.csv") set.seed(123) model <- EHModel_Regression_Logistic(data, "Transported") predictions <- predict(model, test_data) confusion_matrix <- confusionMatrix(predictions, test_data$Transported) print(confusion_matrix)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.