Skip to content

Instantly share code, notes, and snippets.

@cddesja
Last active October 9, 2015 10:02
Show Gist options
  • Save cddesja/c5db40151ffef798d687 to your computer and use it in GitHub Desktop.
Save cddesja/c5db40151ffef798d687 to your computer and use it in GitHub Desktop.
library(irtoys)
hp <- read.csv("http://cddesja.github.io/classes/e411prma2015-3/data/hp.csv", header = T)[,-7]
mod <- est(hp, model="1PL", engine="ltm", rasch = TRUE)
colnames(mod$est) <- c("Discrimination", "Difficulty", "Guessing")
rownames(mod$est) <- paste("Item", 1:ncol(hp))
print(mod$est)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment