Decision Tree Klasifikasi: IPK Tinggi Berdasarkan Jam Belajar

dat=read.table("D:/Libraries/Documents/DATA MINING/dat.txt", header = T, sep = "\t")
dat

##     IPK Jam
## 1  2.75   6
## 2  2.65   7
## 3  1.78   3
## 4  1.89   4
## 5  2.23   6
## 6  2.78   7
## 7  2.84   8
## 8  2.78   6
## 9  1.57   3
## 10 3.13  10
## 11 3.56  11
## 12 3.23  10
## 13 3.03   9
## 14 3.63  10
## 15 3.78  11
## 16 3.25  12
## 17 2.67   6
## 18 2.65   7
## 19 3.45  12

library(rpart)

## Warning: package 'rpart' was built under R version 4.4.3

library(rpart.plot)

## Warning: package 'rpart.plot' was built under R version 4.4.3

dat=read.table("D:/Libraries/Documents/DATA MINING/dat.txt", header = T, sep = "\t")

dat$IPK_Tinggi = ifelse(dat$IPK >= 3.5, 1, 0)

class.tree = rpart(IPK_Tinggi ~ Jam, data = dat, method = "class", minsplit = 3)

rpart.plot(class.tree, type = 4, extra = 1, main = "Decision Tree Klasifikasi: IPK Tinggi Berdasarkan Jam Belajar")