Poincare's Bread Supposedly, Poincaré   suspected that his local bakery was selling loaves of bread that were lighter than the advertised weight of 1 kg, so every day for a year he bought a loaf of bread, brought it home and weighed it. At the end of the year, he plotted the distribution of his measurements and showed that it fit a normal distri…

poincare_bread.R

pick_heaviest_loaf <- function( loaves=100) {
  bread <- rnorm( loaves, 950, 50)
  return( max( bread))
}

loaves_over_a_year <- function( loaves=100) {
  days <- 365
  poincare_loaves <- vector()
  for (i in 1:days ) {
    heaviest_loaf <- pick_heaviest_loaf(loaves)
    poincare_loaves <- append( poincare_loaves, heaviest_loaf)
  }
  return( poincare_loaves)
}

loaves <- loaves_over_a_year(100)
summary( loaves)
hist( loaves)