data-raw/gwet4_table12-1.R

# page 346
gwet4_table12.1 <-
  tibble::tribble(
    ~Respondent, ~A1, ~B1, ~C1, ~D1, ~E1, ~F1,
    1, 5, 5, 3, 3, 2, 2,
    2, 4, 4, 3, 5, 4, 4,
    3, 4, 5, 4, 4, 4, 4,
    4, 5, 3, 4, 4, 2, 2,
    5, 4, 3, 5, 4, 3, 3,
    6, 5, 2, 1, 1, 1, 1,
    7, 5, 5, 4, 4, 4, 4,
    8, 4, 4, 3, 2, 1, 1,
    9, 5, 5, 1, 1, 1, 1,
    10, 5, 4, 1, 2, 2, 1,
    11, 4, 4, 3, 4, 3, 2,
    12, 3, 2, 3, 4, 3, 4,
    13, 5, 5, 5, 1, 4, 1,
    14, 5, 5, 3, 2, 4, 4,
    15, 5, 4, 3, 2, 4, 2
  )

usethis::use_data(gwet4_table12.1, overwrite = TRUE)
jmgirard/agreement documentation built on Sept. 12, 2022, 12:39 a.m.