data(risk)
partition_risk <- partition(data = risk, ratio = c(0.6, 0.4))
train = partition_risk$part1
test = partition_risk$part1
kNN.plot(risk ~ income + age, train = train, test = test)
kNN.plot(risk ~ income + age, train = train, test = test, base = "error")
Run the code above in your browser using DataLab