Bootstrapping for the Hardy-Weinberg Example f<-function(x){ s<-runif(1029) x2<-length(s[.331