<div dir="ltr"><div>Olá pessoal!<br><br>Como faço para imprimir as linhas iniciadas por # através da função sink()?<br>Quando tento como no código abaixo obtenho apenas os números, mas gostaria de obter todo o código (inclusive as linhas comentadas).<br>
<br>sink("exemplo.txt")<br># exemplo<br>x <- c(2,3,2,4,2,3)<br># media de x<br>mean(x)<br># desvio-padrao de x<br>sd(x)<br>sink()<br><br></div>Ao executar o código acima obtenho isso:<br><div>[1] 2,6667<br>[1] 0,8165<br>
<br></div><div>Mas gostaria de obter isso (conseguido aqui através de copiar e colar):<br></div><div><br>> # exemplo<br>> x <- c(2,3,2,4,2,3)<br><br>> # media de x<br>> mean(x)<br>[1] 2,6667<br><br>> # desvio-padrao de x<br>
> sd(x)<br>[1] 0,8165<br><br></div><div>Já procurei no google e no help do R, mas não encontrei a solução.<br></div><div>Isso é possível com a função sink()? Ou existe outra função?<br></div><div>Tentei também txtStart() e txtStop(), mas não funcionou como gostaria.<br>
<br></div><div>Agradeço a ajuda!<br></div><div>-- <br>Mauricio Cardeal<br>UFBA<br>
</div></div>