data-raw/sch03/sch03.R

In pmcharrison/inconData: Datasets for Simultaneous Consonance Perception

library(tidyverse)
library(hrep)
library(usethis)

sch03 <- read_delim("data-raw/sch03/figure-6.txt", delim = "\t") %>%
  mutate(pi_chord_type = interval %>%
           strsplit(" ") %>% map(as.integer) %>% map(pi_chord_type)) %>%
  transmute(id = label,
            pi_chord_type = pi_chord_type,
            chord_size = 2L,
            rating = consonance_rank)

use_data(sch03, overwrite = TRUE)