mushroom

rawdata <- “https://archive.ics.uci.edu/ml/machine-learning-databases/mushroom/agaricus-lepiota.data” mushroomtable <- read.table(file = rawdata, header = FALSE, sep = “,”)

Select the first five columns

mushrooms <- mushroomtable[,1:5]

Label the first five columns based on description from UCI

colnames(mushrooms) <- c(“Class”,“Shape”,“Surface”,“Color”,“Bruises”)

Replace abbreviations in Class

levels(mushrooms\(Class) <- c(levels(mushrooms\)Class), c(“Edible”, “Poison”)) mushrooms\(Class[mushrooms\)Class == “e”] <- “Edible” mushrooms\(Class[mushrooms\)Class == “p”] <- “Poison”

Replace abbreviations in Shape

levels(mushrooms\(Shape) <- c(levels(mushrooms\)Shape), c(“Bell”, “Conical”, “Flat”, “Knobbed”, “Sunken”)) mushrooms\(Shape[mushrooms\)Shape == “b”] <- “Bell” mushrooms\(Shape[mushrooms\)Shape == “c”] <- “Conical” mushrooms\(Shape[mushrooms\)Shape == “x”] <- “Flat” mushrooms\(Shape[mushrooms\)Shape == “k”] <- “Knobbed” mushrooms\(Shape[mushrooms\)Shape == “s”] <- “Sunken”

Replace abbreviations in Surface

levels(mushrooms\(Surface) <- c(levels(mushrooms\)Surface), c(“Fibrous”, “Grooves”, “Scaly”, “Smooth”)) mushrooms\(Surface[mushrooms\)Surface == “f”] <- “Fibrous” mushrooms\(Surface[mushrooms\)Surface == “g”] <- “Grooves” mushrooms\(Surface[mushrooms\)Surface == “y”] <- “Scaly” mushrooms\(Surface[mushrooms\)Surface == “s”] <- “Smooth”

Replace abbreviations in Color

levels(mushrooms\(Color) <- c(levels(mushrooms\)Color), c(“Buff”, “Brown”, “Cinnamon”, “Gray”, “Green”, “Pink”, “Purple”, “Red”, “White”, “Yellow”)) mushrooms\(Color[mushrooms\)Color == “n”] <- “Brown” mushrooms\(Color[mushrooms\)Color == “b”] <- “Buff” mushrooms\(Color[mushrooms\)Color == “n”] <- “Brown” mushrooms\(Color[mushrooms\)Color == “c”] <- “Cinnamon” mushrooms\(Color[mushrooms\)Color == “g”] <- “Gray” mushrooms\(Color[mushrooms\)Color == “r”] <- “Green” mushrooms\(Color[mushrooms\)Color == “p”] <- “Pink” mushrooms\(Color[mushrooms\)Color == “u”] <- “Purple” mushrooms\(Color[mushrooms\)Color == “e”] <- “Red” mushrooms\(Color[mushrooms\)Color == “w”] <- “White” mushrooms\(Color[mushrooms\)Color == “y”] <- “Yellow”

Replace abbreviations in Bruises

levels(mushrooms\(Bruises) <- c(levels(mushrooms\)Bruises), c(“Yes”, “No”)) mushrooms\(Bruises[mushrooms\)Bruises == “t”] <- “Yes” mushrooms\(Bruises[mushrooms\)Bruises == “f”] <- “No”

Display updated table

head(mushrooms)

Class Shape Surface Color Bruises 1 Poison Flat Smooth Brown Yes 2 Edible Flat Smooth Yellow Yes 3 Edible Bell Smooth White Yes 4 Poison Flat Scaly White Yes 5 Edible Flat Smooth Gray No 6 Edible Flat Scaly Yellow Yes