add R function for getting bootstrap confidence intervals