dev/pnt-old/validation/extra_scripts/add_slide_num_to_items.R

In rbcavanaugh/pnt: Computer adaptive forms of the Philadelphia Naming Test

library(tidyverse)

ItemParameters <- read_excel("ItemParameters.xlsx") %>%
  rename(target = Item)
items <- read_csv("www/items.csv")

item_difficulty <- ItemParameters %>%
  left_join(items, by = "target")

sum(is.na(item_difficulty$slide_num))

# 0


#write.csv(item_difficulty, "www/item_difficulty.csv")