% (gH)   -_-  demosweave2.nw  ;  TimeStamp (unix) : 31 Mai 2010 vers 14:33
\documentclass[a4paper]{article}
%
\def\ghversion{2.31}
\begin{document}
\SweaveOpts{concordance=TRUE}

~

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

\SweaveOpts{echo=TRUE,eps = FALSE, pdf = TRUE}

<<echo=TRUE,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 <- "elf"   # 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}