```r
Install and load required packages
if (!require(party)) install.packages("party", dependencies = TRUE) library(party)
Set the working directory to the location of your
file
setwd("C:/Users/user.DESKTOP-US9GTFN.003/Desktop")
Construct the file path
file_path <- "C:/Users/user.DESKTOP-US9GTFN.003/Desktop/mushrooms.csv"
Check if the file exists
if (file.exists(file_path)) { # Load the dataset data <- read.csv(file_path)
# Check the first few rows of the dataset print("First few rows of the dataset:") print(head(data))
# Check the structure of the dataset print("Structure of the dataset:") str(data)
# Convert all columns to factors data[] <- lapply(data, as.factor)
# Build the decision tree model using ctree model_ctree <- ctree(class ~ ., data = data)
# Print model summary print("Conditional Inference Tree Model Summary:") print(model_ctree)
# Plot the decision tree print("Plotting the decision tree:") plot(model_ctree, main = "Conditional
Inference Tree for Mushroom Classification")
# Make predictions using the decision tree model predictions <- predict(model_ctree, data)
# Add predictions to the dataset data$PredictedClass <- predictions
# View the updated dataset with predictions print("Updated dataset with predictions:")
print(head(data))
# Create and print the confusion matrix confusion_matrix <- table(Predicted = predictions,
Actual = data$class) print("Confusion Matrix:") print(confusion_matrix)
# Calculate and print accuracy accuracy <- sum(diag(confusion_matrix)) / sum(confusion_matrix)
print(paste("Accuracy:", round(accuracy, 2))) } else { stop("File not found") }
