SimonCoulombe

#https://stackoverflow.com/questions/35536289/how-to-get-the-grid-of-2-graphs-with-different-geom-match-with-ggplot2

library(ggplot2)
library(gridExtra)
library(dplyr)
library(tidyr)


pouet <-tibble(decile = seq(1:10),

SimonCoulombe

library(tidyverse)
set.seed(2718)

picks <- function(){
  x <- 0;    i <- 0
  while(x <1){
    i <- i+1
    x <- x + runif(n=1,min=0,max=1)
  }
  return (i)