bags_lost = c(
 1,
 0,
 0,
 3,
 4,
 1,
 0,
 2,
 0,
 2,
 3,
 1,
 2,
 2,
 1,
 3,
 0,
 2,
 5,
 2,
 1,
 1,
 1,
 2,
 1,
 3,
 1,
 2,
 0,
 0,
 1,
 3,
 1,
 2,
 0,
 1,
 4,
 2,
 1,
 0 )
DF = data.frame( Week=1:40, Bags_Lost=bags_lost )