data-raw/blst_studies.R

In dalejbarr/autocorr: Autocorrelation toolkit for multilevel data

library("tidyverse")

## script to create blst_studies object

blst_studies <-
  tibble::tribble(~ID,  ~Residual,  ~subj_int,  ~subj_slp,
                  ~item_int,  ~item_slp,
                  1,       3572, 0.2163,      0, 0.0143, 0.0389,
                  2,  8438.8531, 0.1404,  8e-04, 0.0282, 0.0172,
                  3, 24387.6356, 0.1046,  4e-04, 0.1339, 0.0571,
                  4,  29933.581, 0.3207,  1e-04, 0.1473, 0.0062,
                  5,   0.493532, 1.8765, 0.3852, 1.0238, 0.3468,
                  6, 275362.526, 0.4492, 0.0021, 1.0269, 0.0371,
                  7,     230191, 0.1058, 0.0588,  0.091, 0.0976,
                  8,  231824.16, 0.1721, 0.0029, 0.0864, 0.0567,
                  9,    51371.6, 0.4117, 0.0208, 0.1076, 0.0858,
                  10,    7536625, 0.0363, 0.0656, 0.1198, 0.0058,
                  11,     406043, 0.2286, 0.2216, 0.3269, 0.3237,
                  12,   0.128353, 0.1042, 0.3661,      0,      0,
                  13,     242830, 0.4258, 0.2867,  0.082, 0.1127
                  )

bind_rows(lower %>%
          mutate(quantile = "25%") %>%
          select(quantile, everything()),
          upper %>%
          mutate(quantile = "75%") %>%
          select(quantile, everything()))

usethis::use_data(blst_studies)