Мне нравится использовать функцию sink()
:
latex.code <- function(){
cat("\\begin{align}\n")
cat("[X'X]^{-1}X'y\n")
cat("\\end{align}\n")
}
sink(file='ols.txt')
latex.code()
sink()
Редактировать: Очевидно, что вы можете выбрать путь к файлу, в который будет сохранен файл, изменив аргумент приемника, например: sink(file='c:/Users/Eva/Desktop/ols.txt')
,или sink(file='~/ols.txt')