Skip to content

Instantly share code, notes, and snippets.

@markdly

markdly/conquestr_example.md

Last active May 11, 2018 01:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save markdly/9f0c5d2f08327f8506377bbd891d4ab6 to your computer and use it in GitHub Desktop.
Save markdly/9f0c5d2f08327f8506377bbd891d4ab6 to your computer and use it in GitHub Desktop.
Download ZIP
2018-05-10
Raw
conquestr_example.md 
library(conquestr)
library(tidyverse)
mydir <- "C:\\Users\\Mark\\Downloads"
myitanal <- cq_itanal(paste0(mydir, "\\Num_Y3.itn"))
myshow <- cq_show(paste0(mydir, "\\Num_Y3.shw"), fit = FALSE)

write_csv(myshow, paste0(mydir, "\\show.csv"))
myitanal %>%
  select(-c(data, resp_stat)) %>%
  write_csv(paste0(mydir, "\\itanal.csv")) 
myitanal %>%
  select(item_index, resp_stat) %>%
  unnest() %>%
  write_csv(paste0(mydir, "\\itanal_resp_stat.csv"))

Created on 2018-05-11 by the reprex package (v0.2.0).

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment