<div dir="ltr">Maurício, boa tarde!<div><br></div><div>Segue uma possibilidade:<br><div><br></div><div>1) Separe o código desejado em um arquivo à parte, p. ex. 'tmp.R'.</div><div><br></div><div><font face="courier new, monospace">### <code r></font></div>
<div><font face="courier new, monospace"># exemplo<br></font></div><div><div><font face="courier new, monospace">x <- c(2,3,2,4,2,3)</font></div><div><font face="courier new, monospace"># media de x</font></div><div><font face="courier new, monospace">mean(x)</font></div>
<div><font face="courier new, monospace"># desvio-padrao de x</font></div><div><font face="courier new, monospace">sd(x)</font></div><div><font face="courier new, monospace">### </code></font></div><div><br></div><div>
2) Tendo salvo o arquivo, execute:</div><div><br></div><div><font face="courier new, monospace">### <code r><br></font></div><div><font face="courier new, monospace">sink("exemplo.txt")</font></div><div><font face="courier new, monospace">source("tmp.R", echo=TRUE, max.deparse.length=10000)</font></div>
<div><font face="courier new, monospace">sink()</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace"><div>cat(readLines("exemplo.txt"), sep="\n")</div>
<div>### <code r><br></div><div><br></div><div><span style="font-family:arial">3) A saída do último comando mostra o conteúdo de "exemplo.txt":</span><br></div><div><br></div><div><div># > # exemplo</div>
<div># > x <- c(2,3,2,4,2,3)</div><div># </div><div># > # media de x</div><div># > mean(x)</div><div># [1] 2.666667</div><div># </div><div># > # desvio-padrao de x</div><div># > sd(x)</div><div># [1] 0.8164966</div>
<div># > </div></div></font></div><div><font face="courier new, monospace"><br></font></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br><div class="gmail_quote"><br></div></div></div></div></div>