preprocessDataset = function() { csv.file = "Indian Liver Patient Dataset (ILPD).csv" dataset = read.csv(paste0(orig.dir, "/", csv.file), header=FALSE) colnames(dataset) = c("Age", "Gender", "TB", "DB", "Alkphos", "Sgpt", "Sgot", "TP", "ALB", "A/G Ratio", "Selector") dataset = dataset %>% mutate(Selector=factor(Selector)) return(dataset) }