É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@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ========================================================================== 2011/4/22 <eder@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@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br