输入?sink查看帮助可知
Examples
sink("sink-examp.txt")
i <- 1:10
outer(i, i, "*")
sink()
unlink("sink-examp.txt")
结束sink("sink-examp.txt")的方法是sink()
dev.off只能结束图形输出
# Set the max.print option to a higher value
options(max.print = 9999)
输入?sink查看帮助可知
Examples
sink("sink-examp.txt")
i <- 1:10
outer(i, i, "*")
sink()
unlink("sink-examp.txt")
结束sink("sink-examp.txt")的方法是sink()
dev.off只能结束图形输出
# Set the max.print option to a higher value
options(max.print = 9999)