data-raw/disgust.R

In DominiqueMakowski/bayestestR: Understand and Describe Bayesian Models and Posterior Distributions

disgust <- tibble::tribble(
  ~score, ~condition,
  13L, "control",
  26L, "control",
  30L, "control",
  23L, "control",
  34L, "control",
  37L, "control",
  33L, "control",
  34L, "control",
  35L, "control",
  33L, "control",
  24L, "control",
  43L, "control",
  23L, "control",
  34L, "control",
  17L, "control",
  38L, "control",
  38L, "control",
  46L, "control",
  28L, "control",
  30L, "control",
  25L, "control",
  28L, "control",
  19L, "control",
  32L, "control",
  29L, "control",
  38L, "control",
  29L, "control",
  28L, "control",
  28L, "control",
  34L, "control",
  28L, "control",
  38L, "control",
  26L, "control",
  43L, "control",
  25L, "control",
  24L, "control",
  21L, "control",
  34L, "control",
  31L, "control",
  21L, "control",
  23L, "control",
  23L, "control",
  38L, "control",
  16L, "control",
  29L, "control",
  39L, "control",
  25L, "control",
  31L, "control",
  33L, "control",
  43L, "control",
  25L, "lemon",
  23L, "lemon",
  35L, "lemon",
  14L, "lemon",
  31L, "lemon",
  41L, "lemon",
  21L, "lemon",
  22L, "lemon",
  35L, "lemon",
  30L, "lemon",
  45L, "lemon",
  30L, "lemon",
  28L, "lemon",
  23L, "lemon",
  40L, "lemon",
  27L, "lemon",
  37L, "lemon",
  26L, "lemon",
  25L, "lemon",
  30L, "lemon",
  33L, "lemon",
  18L, "lemon",
  26L, "lemon",
  26L, "lemon",
  34L, "lemon",
  19L, "lemon",
  22L, "lemon",
  22L, "lemon",
  26L, "lemon",
  27L, "lemon",
  27L, "lemon",
  38L, "lemon",
  33L, "lemon",
  31L, "lemon",
  31L, "lemon",
  23L, "lemon",
  27L, "lemon",
  33L, "lemon",
  30L, "lemon",
  30L, "lemon",
  36L, "lemon",
  43L, "lemon",
  26L, "lemon",
  32L, "lemon",
  26L, "lemon",
  26L, "lemon",
  22L, "lemon",
  24L, "lemon",
  28L, "lemon",
  29L, "lemon",
  35L, "sulfur",
  24L, "sulfur",
  39L, "sulfur",
  34L, "sulfur",
  35L, "sulfur",
  44L, "sulfur",
  23L, "sulfur",
  36L, "sulfur",
  28L, "sulfur",
  23L, "sulfur",
  30L, "sulfur",
  36L, "sulfur",
  40L, "sulfur",
  30L, "sulfur",
  34L, "sulfur",
  34L, "sulfur",
  32L, "sulfur",
  45L, "sulfur",
  40L, "sulfur",
  28L, "sulfur",
  33L, "sulfur",
  42L, "sulfur",
  30L, "sulfur",
  32L, "sulfur",
  26L, "sulfur",
  29L, "sulfur",
  31L, "sulfur",
  35L, "sulfur",
  24L, "sulfur",
  32L, "sulfur",
  31L, "sulfur",
  28L, "sulfur",
  32L, "sulfur",
  39L, "sulfur",
  20L, "sulfur",
  33L, "sulfur",
  30L, "sulfur",
  37L, "sulfur",
  35L, "sulfur",
  32L, "sulfur",
  27L, "sulfur",
  38L, "sulfur",
  21L, "sulfur",
  41L, "sulfur",
  27L, "sulfur",
  27L, "sulfur",
  43L, "sulfur",
  25L, "sulfur",
  24L, "sulfur",
  23L, "sulfur"
)

disgust$condition <- factor(disgust$condition)
disgust <- as.data.frame(disgust)

save(disgust, file = "data/disgust.rdata")