data-raw/mushroom.R

X <- read.csv("./agaricus-lepiota.data", sep = ",", header = F)
X <- data.frame(lapply(X, function(x) factor(x)))
mushroom <- data.frame(edibility = X[, 1])
mushroom <- cbind(mushroom, X[, -1])

usethis::use_data(mushroom)
comeetie/greed documentation built on Oct. 10, 2022, 5:37 p.m.