data-raw/PDCT_item_bank.R

In sebsilas/PDT: Pitch Discrimination Task

## code to prepare `PDCT_item_bank` dataset goes here


items <- read.csv("data-raw/PDCT_IRT_ItemBank.csv")

# transform data frame to make a possible position for each tone

random.item.bank <- items
random.item.bank[c("tone.1", "tone.2", "tone.3")] <- 330
random.item.bank$answer <- NA

n <- 3
random.item.bank <- do.call("rbind", replicate(3, random.item.bank, simplify = FALSE))


# create main data frame
PDCT_item_bank <- data.frame(matrix(vector(),ncol=ncol(random.item.bank)))
names(PDCT_item_bank) <- names(random.item.bank)

for (i in 1:nrow(items)) {

  rows <- data.frame(random.item.bank[random.item.bank["item.no"]==i, ])

  rows[1,"answer"] <- 1
  rows[2,"answer"] <- 2
  rows[3,"answer"] <- 3
  rows[1,"tone.1"] <- random.item.bank[i,"level"]
  rows[2,"tone.2"] <- random.item.bank[i,"level"]
  rows[3,"tone.3"] <- random.item.bank[i,"level"]

  PDCT_item_bank <- rbind(PDCT_item_bank, rows)

}

# write.csv(PDCT_item_bank, "ItemBank.csv", row.names = FALSE)

usethis::use_data(PDCT_item_bank, overwrite = TRUE)
usethis::use_data(PDCT_item_bank, internal = TRUE, overwrite = TRUE)