<font face="trebuchet ms,sans-serif">Éder,<br><br>echo=false : omite entrada<br>results=hide : omite saida<br>eval=false : não avalia o código<br><br>e no preambulo<br><br>\SweaveOpts{keep.source=TRUE}<br><br>faz com que o código fique como você definir, com indentação e comentários.<br>
<br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>

<br><br><div class="gmail_quote">2011/4/22  <span dir="ltr"><<a href="mailto:eder@leg.ufpr.br">eder@leg.ufpr.br</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Esqueci,<br>
Querro que o comentário também seja mantido<br>
Att<br>
<div><div></div><div class="h5"><br>
> Pessoal,<br>
><br>
> Preciso que no documento final seja mantido o codigo R bem como os<br>
> resultados processados por ele, por exemplo o arquivo .Rnw abaixo:<br>
><br>
> \documentclass[a4paper]{article}<br>
> \usepackage{Sweave}<br>
> \title{Estimativa via verossimilhança}<br>
> \author{Éder David Borges da Silva}<br>
> \begin{document}<br>
> \maketitle<br>
><br>
> \section{Distribuição}<br>
> <<echo=TRUE>>=<br>
> ###---------------------------------------------------------------------------###<br>
> dbetabinom1  <- function(x, size, prob, theta, log=FALSE) {<br>
>    alpha <- prob / theta<br>
>    beta <- (1 - prob) / theta<br>
>    dens <- lchoose(size,x) + lbeta(x+alpha,size-x+beta) -<br>
>          lbeta(alpha,beta)<br>
>    if (!log)<br>
>      dens <- exp(dens)<br>
>    return(dens)<br>
>    }<br>
><br>
>  rbetabinom1 <- function(n, size, prob, theta) {<br>
>       # n é o número de elementos da amostra<br>
>      # size, prob e theta os parâmetros da densidade<br>
>      r <- function(x)<br>
>           sample(0:x[1], size=1, replace=TRUE,<br>
>                  prob=dbetabinom1(0:x[1], size=x[1],<br>
>                  prob=x[2], theta=x[3], log=FALSE))<br>
>      if (length(n)>1)<br>
>        n <- length(n)<br>
>      return(new("numeric",<br>
>                 sapply(data.frame(rbind(size, prob, theta, rep(1,n))),<br>
> r)))<br>
>    }<br>
> ###---------------------------------------------------------------------------###<br>
> @<br>
><br>
> \end{document}<br>
><br>
> Em minha cabeça eu lembrava que o echo=TRUE fazia isso, ou seja mantinha o<br>
> codigo, porem isso não esta acontecendo, quando compilo não aparece nada<br>
> do codigo R. Onde será que estou errando?<br>
> Att<br>
><br>
><br>
><br>
><br>
<br>
<br>
<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
</div></div></blockquote></div><br>