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
[EMAIL PROTECTED]
Tel.: +49 6221 737474
Tel.: +49 163 7374744
______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
