Напишите список, как видно на выходе R-консоли, в текстовый файл

Question

У меня проблема с записью списка в текстовый файл в r. Вот мой код:

library(e1071) 
mydata = read.table("TRAIN.txt", sep = ",", header = FALSE) 
model <- naiveBayes(as.factor(V1) ~., data = my data) 

и я хочу написать «модель» в текстовый файл. Вот "модель" Формат:

A-priori probabilities: 
Y 
    0  1 
0.703125 0.296875 

Conditional probabilities: 
V2 
Y   [,1]  [,2] 
0 0.1327792 1.1571522 
1 -0.1276267 0.9334735 

V3 
Y   [,1]  [,2] 
0 -0.2414282 1.0982461 
1 -0.2269481 0.7594525 

и я попытался следующие:

write(model, "TEST.txt") 

и получил следующее сообщение об ошибке:

Error in cat(list(...), file, sep, fill, labels, append) : 
argument 1 (type 'list') cannot be handled by 'cat' 

, а затем я попытался

lapply(model, cat, file='test.txt', append=TRUE) 

и получил ту же ошибку.

Answer 1

y1 <- rnorm(100) 
x1 <- rnorm(100) 
model.out <- lm(y1~x1) 

sink("~/Desktop/TEST.txt", type=c("output", "message")) 
model.out 
sink(NULL) 

На основании этого ответа: How to save all console output to file in R?