data-raw/unordered.R

In jmgirard/agreement: What the Package Does (One Line, Title Case)

# Categorical data, characters, missing values, wide format ---------------
unordered_wide <-
  tibble::tribble(
    ~R1, ~R2, ~R3, ~R4,
    "a", "a", NA, "a",
    "b", "b", "c", "b",
    "c", "c", "c", "c",
    "c", "c", "c", "c",
    "b", "b", "b", "b",
    "a", "b", "c", "d",
    "d", "d", "d", "d",
    "a", "a", "b", "a",
    "b", "b", "b", "b",
    NA, "e", "e", "e",
    NA, NA, "a", "a",
    NA, NA, "c", NA
  )
usethis::use_data(unordered_wide, overwrite = TRUE)

# Categorical data, characters, missing values, tall format ---------------
unordered <-
  unordered_wide %>%
  dplyr::mutate(Object = dplyr::row_number()) %>%
  tidyr::pivot_longer(cols = -Object, names_to = "Rater", values_to = "Score")
usethis::use_data(unordered, overwrite = TRUE)