Decision Tree Proyek

library(rpart)
library(rpart.plot)

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

data<-read.csv("C:/Users/HP Pavilion 14/Downloads/Data.csv",header = TRUE, sep=";")
print(data)

##    tinggi_badan.cm. berat_badan.kg. obesitas  X
## 1               170              60        0 NA
## 2               160              75        1 NA
## 3               180              80        0 NA
## 4               155              85        1 NA
## 5               165              70        0 NA
## 6               175              90        1 NA
## 7               150              95        1 NA
## 8               165              80        1 NA
## 9               160              65        0 NA
## 10              168              72        0 NA
## 11              172              88        1 NA
## 12              162              78        1 NA
## 13              180              85        0 NA
## 14              155              70        0 NA
## 15              170              95        1 NA

str(data)

## 'data.frame':    15 obs. of  4 variables:
##  $ tinggi_badan.cm.: int  170 160 180 155 165 175 150 165 160 168 ...
##  $ berat_badan.kg. : int  60 75 80 85 70 90 95 80 65 72 ...
##  $ obesitas        : int  0 1 0 1 0 1 1 1 0 0 ...
##  $ X               : logi  NA NA NA NA NA NA ...

data$berat_badan.kg.<-ifelse(data$berat_badan.kg.>=74,1,0)
model<-rpart(berat_badan.kg.~tinggi_badan.cm., data=data, method="class", minsplit=3)

# Visualisasi pohon keputusan tanpa extra=1 untuk menghindari error
rpart.plot(model, type = 4, main = "Decision Tree - Prediksi Obesitas")