1) Separe o código desejado em um arquivo à parte, p. ex. 'tmp.R'.
x <- c(2,3,2,4,2,3)
# media de x
mean(x)
# desvio-padrao de x
sd(x)
### </code>
2) Tendo salvo o arquivo, execute:
### <code r>
sink("exemplo.txt")
source("tmp.R", echo=TRUE, max.deparse.length=10000)
sink()
cat(readLines("exemplo.txt"), sep="\n")
### <code r>
3) A saída do último comando mostra o conteúdo de "exemplo.txt":
# > # exemplo
# > x <- c(2,3,2,4,2,3)
#
# > # media de x
# > mean(x)
# [1] 2.666667
#
# > # desvio-padrao de x
# > sd(x)
# [1] 0.8164966
# >