在表中写入要在r中导出的文本

Question

我想在R中导出一个表，但我需要3个标题行，例如：

DATASET
#PAT: 60
#INPUT: 11 
#OUTPUT: 1

0   0   1   56.5    0   0   122 1   2   0   65000   0.5
0   0   1   33.5    0   0   145 1   2   0   70000   0.6
0   0   1   65.5    46  0   126 2   2   0   70000   0.7
0   0   1   33.5    0   0   130 1   2   0   60000   0.7
0   0   1   42.5    46  0   126 1   2   0   70000   0.8
.
.
.

有人可以帮助我吗？谢谢

Answer 1

这是：

cat('#PAT: 60\n', file='out.txt', append=F)
cat('#INPUT: 11\n', file='out.txt', append=T)
cat('#OUTPUT: 1\n', file='out.txt', append=T)
cat('\n', file='out.txt', append=T)
write.table(data.frame(A=1:4, B=3:6), 
            file='out.txt', append=T, sep='\t', 
            row.names=F, col.names=F)