# NOT RUN {
## Write to tempdir() and clean afterwards
f <- file.path(tempdir(), "itempool_fatigue.csv")
write.csv(itempool_fatigue_raw, f, row.names = FALSE)
itempool_fatigue <- loadItemPool(f)
file.remove(f)
f <- file.path(tempdir(), "itemattrib_fatigue.csv")
write.csv(itemattrib_fatigue_raw, f, row.names = FALSE)
itemattrib_fatigue <- loadItemAttrib(f, itempool_fatigue)
file.remove(f)
f <- file.path(tempdir(), "constraints_fatigue.csv")
write.csv(constraints_fatigue_raw, f, row.names = FALSE)
constraints_fatigue <- loadConstraints(f,
itempool_fatigue, itemattrib_fatigue)
file.remove(f)
## Item contents for use in shiny app
f <- file.path(tempdir(), "itemcontent_fatigue.csv")
write.csv(itemcontent_fatigue_raw, f, row.names = FALSE)
file.remove(f)
## Raw item responses for reference
f <- file.path(tempdir(), "resp_fatigue.csv")
write.table(resp_fatigue_raw, f, row.names = FALSE, col.names = FALSE, sep = ",")
file.remove(f)
# }
Run the code above in your browser using DataLab