[R] Bugreport on integration of Sweave and latex beamer

Friedrich Schuster mail at friedrich-schuster.de
Fri Aug 31 18:11:26 CEST 2007


Hi, 
I used the following Sweave code for  text output (worked for me): 

--- code ----
\documentclass{beamer}

\usepackage{beamerthemesplit}
\usepackage[latin1]{inputenc}
\usepackage{ngerman}
\usepackage{psfrag}
\usepackage{graphicx}

\setbeamercovered{transparent}


\SweaveOpts{echo=true}

\title{
	The R Project ...
}
\author{
	Me
}
\date{\today}

\begin{document}

\pgfdeclareimage[height=1cm]{logo}{./img/Rlogo}
\logo{\pgfuseimage{logo}}

\frame{\titlepage}

\section[Übersicht]{}

... snip ...


\begin{frame}[containsverbatim]
  \frametitle{\texttt{search()}}

Zeigt geladene Packages an.

@
<<sample-fn>>=

search();
library(MASS);
search();

@ %def

\end{frame}

... snap ...


\end{document}

--- /code ----

Embedding images should be something like this:


--- /code ----
\begin{center}
<<fig=TRUE,echo=FALSE>>=
     # Aus Beispiel für lm

     ## Annette Dobson (1990) "An Introduction to Generalized Linear Models".
     ## Page 9: Plant Weight Data.
     ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
     trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
     group <- gl(2,10,20, labels=c("Ctl","Trt"))
     weight <- c(ctl, trt)
     anova(lm.D9 <- lm(weight ~ group))
     # summary(lm.D90 <- lm(weight ~ group - 1))# omitting intercept
     # summary(resid(lm.D9) - resid(lm.D90)) #- residuals almost identical

     opar <- par(mfrow = c(2,2), oma = c(0, 0, 1.1, 0))
     plot(lm.D9, las = 1)      # Residuals, Fitted, ...
@
\end{center}
--- code ----


Hope it helps, 


Friedrich Schuster
mail at friedrich-schuster.de
Tel.: +49 6221 737474
Tel.: +49 163 7374744



More information about the R-help mailing list