% (gH)   -_-  demosweave1.rnw  ;  TimeStamp (unix) : 31 Mai 2010 vers 14:33
\documentclass[a4paper]{article}
%
\def\ghversion{2.31}
\usepackage[latin1]{inputenc}
\input dctgh.tex % ma mise en page
\lhead{\textbf{Gilles HUNAULT}}
\chead{}
\rhead{D\'{e}monstration Sweave}
%
\lfoot{Version \ghversion}
\cfoot{page\ ~\thepage\ ~/~ \pageref{LastPage}}
\rfoot{\today\ ;\ \timenow}                    
\begin{document}
\SweaveOpts{concordance=TRUE}
\SweaveOpts{echo=FALSE,eps = FALSE, pdf = TRUE}
~

\begin{center}
{\LARGE
PRODUCTION DYNAMIQUE DE \\[0.5cm]
\textsc{DOCUMENTS,} \\[0.5cm]
\textsc{STATISTIQUES} \\[0.5cm]
\textsc{ET GRAPHIQUES} \\[3cm]
}%
\end{center}

<<echo=FALSE,results=hide>>=

options(encoding = "latin1")
source("poursweave.r",encoding="latin1")

nlu <- 10      # nombre de lignes à lire
usr <- "INRA"  # pour montrer que c'est interactif
dos <- "iris"   # iris ou elf

nbl <- demoSw(dos,nlu,usr,1)

@

\section{Quelques lignes de donn\'{e}es du fichier : \Sexpr{dos} }

Le fichier elf contient \Sexpr{nbl} lignes. L'utilisateur
\Sexpr{usr} veut
traiter les \Sexpr{nlu} premi\`{e}res lignes de ce fichier.
Voici les premi\`{e}res lignes et les derni\`{e}res lignes du fichier :

<<>>=
demoSw(dos,nlu,usr,2)
@

\newpage

\section{Quelques calculs pour le fichier :  \Sexpr{dos} }

<<>>=
demoSw(dos,nlu,usr,3)
@

\newpage

\section{Quelques graphiques pour le fichier :  \Sexpr{dos} }

<<fig=TRUE,echo=false,results=hide>>=
demoSw(dos,nlu,usr,4)
@

<<fig=TRUE,echo=false,results=hide>>=
demoSw(dos,nlu,usr,5)
@

<<fig=TRUE,echo=false,results=hide>>=
demoSw(dos,nlu,usr,6)
@

<<fig=TRUE,echo=false,results=hide>>=
demoSw(dos,nlu,usr,7)
@

\end{document}