\documentclass[a4paper]{article}
\usepackage[french]{babel}
\usepackage{Sweave}
\usepackage{verbatim}
\renewcommand{\thesection}{\arabic{section}. }
\begin{document}
\title{Test de la fonction runif()}
\maketitle
\section{M\'{e}thode utilis\'{e}e}

On g\'{e}n\`{e}re $nbEssais$ de chacun $nbValeurs$. Toutes les valeurs
g\'{e}n\'{e}r\'{e}es sont rang\'{e}es dans une matrice de r\'{e}sultats, \`{a} raison d'un essai par ligne.
Pour chaque essai, on comptabilise le nombre de valeurs avant et apr\`{e}s 0.5 et on
effectue un test binomial pour voir si la diff\'{e}rence est significative au seuil
$\alpha=5~\%$. En fin de fonction, on renvoie le nombre de fois o\`{u} la diff\'{e}rence
est significative.

\section{R\'{e}sultats des tests}

Voici ce que donne l'appel \verb+testRunif(nbEssais=10,nbValeurs=5000)+
<< resultats, echo=TRUE, fig=FALSE >>=
  source("testrunif.r",encoding="latin1")
  nbs <- testRunif(10,5000)
@

\newpage
{\small
\section*{Annexe : code de la fonction testrunif()}
\verbatiminput{testrunif.r}
}% fin de small
\end{document}