PROYEK DATMIN

library(rpart)
library(rpart.plot)

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

data<-read.csv("E:/DATA C LAMA/Downloads/kasus_kesehatan.csv",header = TRUE, sep=",")
print(data)

##    No Umur Tekanan_Darah Risiko
## 1   1   45           140      1
## 2   2   30           120      0
## 3   3   55           160      1
## 4   4   28           110      0
## 5   5   50           150      1
## 6   6   35           125      0
## 7   7   60           165      1
## 8   8   42           130      0
## 9   9   33           115      0
## 10 10   48           138      0
## 11 11   52           145      1
## 12 12   26           118      0
## 13 13   40           135      0
## 14 14   38           122      0
## 15 15   59           158      1
## 16 16   47           143      1
## 17 17   36           127      0
## 18 18   41           139      0
## 19 19   62           170      1
## 20 20   29           119      0

str(data)

## 'data.frame':    20 obs. of  4 variables:
##  $ No           : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ Umur         : int  45 30 55 28 50 35 60 42 33 48 ...
##  $ Tekanan_Darah: int  140 120 160 110 150 125 165 130 115 138 ...
##  $ Risiko       : int  1 0 1 0 1 0 1 0 0 0 ...

data$Tekanan_Darah<- ifelse(data$Tekanan_Darah>=140,1,0)
model<-rpart(Tekanan_Darah~Umur, data=data, method="class", minsplit = 3)
rpart.plot(model, type = 4, extra =1, main = "Decision Tree - Prediksi Kesehatan")