<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><div>Perfeito,</div><div><br></div><div>Obrigado, funcionou.</div><div><br></div><div class="ydp13307b8bsignature"><div><font color="#0000ff">Edmar</font></div></div></div>
<div><br></div><div><br></div>
</div><div id="yahoo_quoted_2249592503" class="yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em segunda-feira, 16 de julho de 2018 14:25:29 BRT, Marcus Nunes <marcus.nunes@gmail.com> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="yiv0339458133"><div><div dir="ltr">Uma dica que eu te dou: nunca, em hipótese alguma, use attach em seus códigos. É algo completamente desnecessário e que pode, em algumas vezes, servir apenas para gerar confusões em nosso código, fazendo a gente achar que fizemos algo quando, na verdade, não o fizemos.<div><br clear="none"></div><div>Tome o teu código, por exemplo. Ao rodar os comandos </div><div><br clear="none"></div><div><div style="">credit_rank<-as.factor(credit_rank)</div><div style="">age <-as.factor(age)</div><div style="">amex<-as.factor(amex)</div><div style="">pay_week <-as.factor(pay_week)</div><div style="">class <-as.factor(class)</div><br clear="none"></div><div>cada uma das variáveis consideradas acima foram transformadas em fator. Entretanto, esta transformação se deu apenas nas versões atachadas (?) destas variáveis. As versões originais, dentro do data frame credito1, continuaram em suas versões originais. </div><div><br clear="none"></div><div>Assim, ao rodar o código</div><div><br clear="none"></div><div><span style="">modelo <-chaid(credit_rank ~ ., data = credito1)</span><br clear="none"></div><div><br clear="none"></div><div>a função chaid está procurando as variáveis preditoras desta regressão dentro do conjunto de dados credito1, mas não as está encontrando. Limpe seu workspace, feche o R e abra ele novamente. Agora rode o código abaixo e seja feliz.</div><div><br clear="none"></div><div><div>library(readxl)</div><div>library(partykit)</div><div>library(CHAID)</div><div><br clear="none"></div><div>credito1 <- read_excel(path="credito1.xlsx")</div><div><br clear="none"></div><div>credito1 <- as.data.frame(lapply(credito1, as.factor)) # converte todas as colunas para fator</div><div><br clear="none"></div><div>modelo <-chaid(credit_rank ~ ., data = credito1)</div><div><br clear="none"></div><div>modelo</div></div><div>--<br clear="none"></div><div><div><div class="yiv0339458133gmail_signature" dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Marcus Nunes</div><div dir="ltr">Professor Adjunto</div><div dir="ltr">Universidade Federal do Rio Grande do Norte</div><div dir="ltr">Centro de Ciências Exatas e da Terra</div><div dir="ltr">Departamento de Estatística</div><div dir="ltr">Laboratório de Estatística Aplicada</div><div dir="ltr"><a rel="nofollow" shape="rect" ymailto="mailto:marcus.nunes@ccet.ufrn.br" target="_blank" href="mailto:marcus.nunes@ccet.ufrn.br">marcus.nunes@ccet.ufrn.br</a></div><div dir="ltr"><a rel="nofollow" shape="rect" target="_blank" href="http://marcusnunes.me/">http://marcusnunes.me/</a></div><div dir="ltr"><br clear="none"></div></div></div></div></div></div><br clear="none"></div></div><br clear="none"><div class="yiv0339458133gmail_quote"><div class="yiv0339458133yqt7565105955" id="yiv0339458133yqt35852"><div dir="ltr">On Mon, Jul 16, 2018 at 2:06 PM Edmar Caldas via R-br <<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote class="yiv0339458133gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><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 clear="none"></div><div>Pessoal, não estou conseguindo executar esse código, podem me ajudar por favor?</div><div><br clear="none"></div><div><br clear="none"></div><div><span></span><div>attach(credito1)</div><div>str(credito1)</div><div><br clear="none"></div><div><br clear="none"></div><div>install.packages("partykit")</div><div>install.packages("CHAID", repos="<a rel="nofollow" shape="rect" target="_blank" href="http://R-Forge.R-project.org">http://R-Forge.R-project.org</a>")</div><div><br clear="none"></div><div>library(partykit)</div><div>library(CHAID)</div><div><br clear="none"></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 clear="none"></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 clear="none"></div><div><br clear="none"></div></div> <span></span><div> <span></span><div>> modelo <-chaid(credit_rank ~ ., data = credito1)</div><div>Error: is.factor(x) is not TRUE</div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div></div></div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote></div></div></div></div></div>
</div>
</div></div></body></html>