20221111 빅데이터&AI(머신러닝,딥러닝)인공지능

첨부파일 1111_training.R 파일 다운로드 # 베이지안 # 실습. # ================ install.packages("e1071") install.packages("caret") library(e1071) data <- read.csv(file = "heart.csv", header = T) head(data) str(data) library(caret) set.seed(1234) tr_data <- createDataPartition(y=data$AHD, p=0.7, list=FALSE) tr <- data[tr_data,] te <- data[-tr_data,] Bayes <- naiveBayes(AHD~. ,data=tr) Bayes predicted <- predict(Bayes, te, type="class") table(predicted, te$AHD) AHD <- as.factor(te$AHD) confusionMatrix(predicted, AH...