Code:

```
# Bootstrap 95% CI for R-Squared
library(boot)
# function to obtain R-Squared from the data
rsq <- function(formula, data, indices) {
d <- data[indices,] # allows boot to select sample
fit <- lm(formula, data=d)
return(summary(fit)$r.square)
}
###vdw beta bootstrap
`results[b]_vdw` = boot(data=rescored_beta, statistic=rsq,
R=10000, formula=Descriptor_Score~vdw)
# get 95% confidence interval
confb_vdw=boot.ci(`results[b]_vdw`)
cib_vdw = confb_vdw$bca[ , c(4, 5)]
```