
<html><head></head><body><div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;"><div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;"><div>Boa Tarde!</div><div><br></div><div>Pessoal, não estou conseguindo executar esse código, podem me ajudar por favor?</div><div><br></div><div><br></div><div><span><div>attach(credito1)</div><div>str(credito1)</div><div><br></div><div><br></div><div>install.packages("partykit")</div><div>install.packages("CHAID", repos="http://R-Forge.R-project.org")</div><div><br></div><div>library(partykit)</div><div>library(CHAID)</div><div><br></div><div>credit_rank<-as.factor(credit_rank)</div><div>age <-as.factor(age)</div><div>amex<-as.factor(amex)</div><div>pay_week <-as.factor(pay_week)</div><div>class <-as.factor(class)</div><div><br></div><div>is.factor(credit_rank)</div><div>is.factor(age)</div><div>is.factor(class)</div><div>is.factor(pay_week)</div><div>is.factor(amex)</div><div><br></div><div><br></div></span></div> <span><div> <span><div>> modelo <-chaid(credit_rank ~ ., data = credito1)</div><div>Error: is.factor(x) is not TRUE</div></span><br></div><div><br></div><div><br></div></span></div></div></body></html>