Deleetdk

#function for finding correction correlations with CIs
cRRr_CI = function(x, y, x_SD_U, R = 1000, conf = .95, type = "basic") {
  library(boot);library(psychometric);library(magrittr);library(weights)

  #make df
  data = data.frame(x, y)
  
  #uncorrected r
  v_r = wtd.cors(data[[1]], data[[2]]) %>% as.numeric()