---
title: "testrunif"
author: "(gH)"
date: "15 mars 2016"
output: pdf_document
---

## Méthode utilisée

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

## Résultats des tests

```{r}
source("testrunif.r",encoding="latin1") 
nbs <- testRunif(10,5000) 
```

\pagebreak

## Annexe : code de la fonction testrunif()

```{r,echo=FALSE} 
readLines("testrunif.r")
```