<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">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 class="gmail_signature"><div dir="ltr"><div>Grato,<br></div>Paulo Nogueira Starzynski<br></div></div></div>
</div></div></div></div></div></div></div>