需要帮助解决决策树中的错误打印培训和测试结果

Question

`setwd("C:/Users/rsiky/Documents/summer2021/week2/cvs_files")
 credit <- read.csv(file="CreditApproval.csv", head=TRUE, sep=",", 
 stringsAsFactors = TRUE)
 # Review Structure of dataset
 str(credit)

# Load libraries
# Discretize
summary(credit$A2); credit$A2<-discretize(credit$A2, "frequency", breaks=6); 
summary(credit$A2)
summary(credit$A3); credit$A3<-discretize(credit$A3, "frequency", breaks=6); 
summary(credit$A3)
summary(credit$A8); credit$A8<-discretize(credit$A8, "frequency", breaks=6); 
summary(credit$A8)
summary(credit$A11); credit$A11<-discretize(credit$A11, "interval", 
breaks=6); summary(credit$A11)
summary(credit$A14); credit$A14<-discretize(credit$A14, "interval", 
breaks=6); summary(credit$A14)
summary(credit$A15); credit$A15<-discretize(credit$A15, "interval", 
breaks=6); summary(credit$A15)
credit$A3<-factor(credit$A3)
summary(credit$A3)
set.seed(1234)
ind <- sample(2, nrow(credit), replace = TRUE, prob = c(0.7, 0.3))
train.data <- credit[ind == 1, ]
test.data <- credit[ind == 2, ]
myFormula<-A3~.
credit__ctree<-ctree(myFormula, data = train.data)
print(credit_ctree)`

When I run the print command I get the following error:

Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'print': object 'credit_ctree' not found

How do I resolve this error?

Answer 1

The problem was a typo in the second to last line

credit__ctree<-ctree(myFormula, data = train.data) print(credit_ctree)`

as you can see there is an extra underscore I had credit__ctree and it should have been credit_ctree