# linear function of seqence vs. response
lm_statistic <- function(data) {
lm(sequence ~ response, data)$coef
}
# load data
data <- adaptation_level_small
# bootstrap
data_bootstrap <- b_bootstrap(data, lm_statistic, n1 = 1000, n2 = 1000)
Run the code above in your browser using DataLab