Olá colegas de lista.

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.

Tentei:

library(party)
airq <- subset(airquality, !is.na(Ozone))
airct <- ctree(Ozone ~ ., data = airq,
               controls = ctree_control(maxsurrogate = 3))
airct
plot(airct)
write(airct, file = "/home/paulo/Documentos/ctree.txt")

Mas obtenho:
"Error in cat(list(...), file, sep, fill, labels, append) :
  argumento 1 (tipo 'S4') não suportado por 'cat'"


Tentei com writeLines, write.table, etc... inclusive adicionando print() ao objeto airct. Não funcionou.
Alguém pode orientar? Estou errando algo simples creio.


Grato,
Paulo Nogueira Starzynski