<div dir="ltr">Tente usar<div><br></div><div>?dput</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-08-03 16:34 GMT-03:00 Paulo Nogueira Starzynski <span dir="ltr"><<a href="mailto:paulons@gmail.com" target="_blank">paulons@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div>Olá colegas de lista.<br></div><br></div>Estou criando algumas árvores de decisão usando party::ctree e gostaria de gravar o resultado em um arquivo texto, para documentar o resultado rapidamente. Um simples txt, sem formatação, já bastaria.<br><br></div>Tentei:<br><br>library(party)<br>airq <- subset(airquality, !<a href="http://is.na" target="_blank">is.na</a>(Ozone))<br>airct <- ctree(Ozone ~ ., data = airq, <br>               controls = ctree_control(maxsurrogate = 3))<br>airct<br>plot(airct)<br>write(airct, file = "/home/paulo/Documentos/ctree.txt")<br><br></div>Mas obtenho:<br>"<span style="color:rgb(255,0,0)">Error in cat(list(...), file, sep, fill, labels, append) : <br>  argumento 1 (tipo 'S4') não suportado por 'cat'</span>"<br><div><div><div><div><div><br><br></div><div>Tentei com writeLines, write.table, etc... inclusive adicionando print() ao objeto airct. Não funcionou.<br></div><div>Alguém pode orientar? Estou errando algo simples creio.<br></div><div><br><br clear="all"><div><div><div><div dir="ltr"><div>Grato,<br></div>Paulo Nogueira Starzynski<br></div></div></div>
</div></div></div></div></div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">Marcus Nunes<br><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br></div></div>
</div>