I've been trying to get the pvalue of my samples from a bootstrap rsquared test in R. I'm not very good with statistics so could someone please take a look at my below code and point me in the right direction with regards to how I can extract the p-values per sample?
Thanks!
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)]