data-raw/lungfun.R

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

# Single Trial, Complete Data, Wide Format --------------------------------

lungfun_wide <- tibble::tribble(
  ~R1, ~R2, ~R3, ~R4,
  190, 220, 200, 200,
  220, 200, 240, 230,
  260, 260, 240, 280,
  210, 300, 280, 265,
  270, 265, 280, 270,
  280, 280, 270, 275,
  260, 280, 280, 300,
  275, 275, 275, 305,
  280, 290, 300, 290,
  320, 290, 300, 290,
  300, 300, 310, 300,
  270, 250, 330, 370,
  320, 330, 330, 330,
  335, 320, 335, 375,
  350, 320, 340, 365
)
usethis::use_data(lungfun_wide, overwrite = TRUE)

# Single Trial, Complete Data, Long Format --------------------------------

lungfun <-
  lungfun_wide %>%
  dplyr::mutate(Object = dplyr::row_number()) %>%
  tidyr::pivot_longer(cols = R1:R4, names_to = "Rater", values_to = "Score")
usethis::use_data(lungfun, overwrite = TRUE)

# Multiple Trial, Missing Data, Long Format -------------------------------

lungfun2 <- tibble::tribble(
  ~Object, ~Rater, ~Trial, ~Score,
  1, 1, 1, 190,
  1, 1, 2, 220,
  1, 2, 1, 220,
  1, 2, 2, 200,
  1, 3, 1, 200,
  1, 3, 2, 240,
  1, 4, 1, 200,
  1, 4, 2, 230,
  2, 1, 1, 260,
  2, 1, 2, 210,
  2, 2, 1, 260,
  2, 2, 2, 300,
  2, 3, 1, 240,
  2, 3, 2, 280,
  2, 4, 1, 280,
  2, 4, 2, 265,
  3, 1, 1, 270,
  3, 1, 2, 280,
  3, 1, 3, 260,
  3, 2, 1, 265,
  3, 2, 2, 280,
  3, 2, 3, NA,
  3, 3, 1, 280,
  3, 3, 2, 270,
  3, 3, 3, 280,
  3, 4, 1, 270,
  3, 4, 2, 275,
  3, 4, 3, 300,
  4, 1, 1, 275,
  4, 2, 1, 275,
  4, 3, 1, 275,
  4, 4, 1, NA,
  5, 1, 1, 280,
  5, 1, 2, 320,
  5, 2, 1, 290,
  5, 2, 2, 290,
  5, 3, 1, 300,
  5, 3, 2, 300,
  5, 4, 1, 290,
  5, 4, 2, 290,
  6, 1, 2, 270,
  6, 2, 1, 300,
  6, 2, 2, 250,
  6, 3, 1, 310,
  6, 3, 2, 330,
  6, 4, 1, 300,
  6, 4, 2, 370,
  7, 1, 1, 320,
  7, 1, 2, NA,
  7, 2, 1, 330,
  7, 2, 2, 320,
  7, 3, 1, 330,
  7, 3, 2, 335,
  7, 4, 1, 330,
  7, 4, 2, 375,
  8, 1, 1, 350,
  8, 2, 1, 320,
  8, 3, 1, 340,
  8, 4, 1, 365
)
usethis::use_data(lungfun2, overwrite = TRUE)