PROYEK DATA MINING

# Load library
library(rpart)
library(rpart.plot)

# Data 20 calon anggota
data <- data.frame(
  Pengalaman = c("Ya", "Tidak", "Ya", "Tidak", "Ya", "Tidak", "Tidak", "Ya", "Ya", "Tidak", "Ya", "Tidak", "Ya", "Tidak", "Tidak", "Ya", "Tidak", "Ya", "Ya", "Tidak"),
  Wawancara = c("Ya", "Ya", "Tidak", "Tidak", "Ya", "Ya", "Tidak", "Tidak", "Ya", "Ya", "Tidak", "Ya", "Ya", "Tidak", "Ya", "Ya", "Tidak", "Tidak", "Ya", "Ya"),
  Aktif = c("Ya", "Ya", "Ya", "Tidak", "Tidak", "Tidak", "Ya", "Tidak", "Ya", "Ya", "Ya", "Tidak", "Tidak", "Tidak", "Ya", "Ya", "Ya", "Ya", "Tidak", "Tidak"),
  Diterima = as.factor(c("Ya", "Ya", "Tidak", "Tidak", "Ya", "Tidak", "Tidak", "Tidak", "Ya", "Ya", "Ya", "Tidak", "Ya", "Tidak", "Ya", "Ya", "Tidak", "Ya", "Ya", "Tidak"))
)

# Model decision tree dengan rpart
model <- rpart(
  Diterima ~ Pengalaman + Wawancara + Aktif,
  data = data,
  method = "class",
  control = rpart.control(cp = 0.0, minsplit = 1, maxdepth = 5)
)

# Visualisasi tree
rpart.plot(model, type = 4, extra = 104, fallen.leaves = TRUE)