[R-br] Sweave Mostrar Codigo R

[Walmes Zeviani]

Éder,

echo=false : omite entrada
results=hide : omite saida
eval=false : não avalia o código

e no preambulo

\SweaveOpts{keep.source=TRUE}

faz com que o código fique como você definir, com indentação e comentários.

À disposição.
Walmes.

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes em ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================


2011/4/22 <eder em leg.ufpr.br>

> Esqueci,
> Querro que o comentário também seja mantido
> Att
>
> > Pessoal,
> >
> > Preciso que no documento final seja mantido o codigo R bem como os
> > resultados processados por ele, por exemplo o arquivo .Rnw abaixo:
> >
> > \documentclass[a4paper]{article}
> > \usepackage{Sweave}
> > \title{Estimativa via verossimilhança}
> > \author{Éder David Borges da Silva}
> > \begin{document}
> > \maketitle
> >
> > \section{Distribuição}
> > <<echo=TRUE>>=
> >
> ###---------------------------------------------------------------------------###
> > dbetabinom1  <- function(x, size, prob, theta, log=FALSE) {
> >    alpha <- prob / theta
> >    beta <- (1 - prob) / theta
> >    dens <- lchoose(size,x) + lbeta(x+alpha,size-x+beta) -
> >          lbeta(alpha,beta)
> >    if (!log)
> >      dens <- exp(dens)
> >    return(dens)
> >    }
> >
> >  rbetabinom1 <- function(n, size, prob, theta) {
> >       # n é o número de elementos da amostra
> >      # size, prob e theta os parâmetros da densidade
> >      r <- function(x)
> >           sample(0:x[1], size=1, replace=TRUE,
> >                  prob=dbetabinom1(0:x[1], size=x[1],
> >                  prob=x[2], theta=x[3], log=FALSE))
> >      if (length(n)>1)
> >        n <- length(n)
> >      return(new("numeric",
> >                 sapply(data.frame(rbind(size, prob, theta, rep(1,n))),
> > r)))
> >    }
> >
> ###---------------------------------------------------------------------------###
> > @
> >
> > \end{document}
> >
> > Em minha cabeça eu lembrava que o echo=TRUE fazia isso, ou seja mantinha
> o
> > codigo, porem isso não esta acontecendo, quando compilo não aparece nada
> > do codigo R. Onde será que estou errando?
> > Att
> >
> >
> >
> >
>
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110422/f82ad303/attachment.html>