Ниже приведен код, пытающийся классифицировать зарплату и вес с использованием ifelse, выходной результат - все с низким содержанием соли и не страдают ожирением, даже если это должно быть иначе.
Data
data = read.csv(choose.files())
data
colnames(data)
View(data)
dim(data)# 10000 Rows, 37 columns
# Naive bayes classification
# classifying salary as high or low
# creating new column with condtion by the name sal
sal = ifelse(data$Salary == ">50000", "High Sal","Low Sal")
sal
wei = ifelse(data$Weight.in.Kgs. == ">60", "obese", "not obese")
data = data.frame(data,wei)