bootstrap R code from friday sesson 1/31/14