Nothing
#steps towards a Rasch modeling program for IRT
#first, estimate the item difficulties
"irt.item.diff.rasch" <-
function(items) {
ncases <- nrow(items)
item.mean <- colMeans(items,na.rm=TRUE)
item.mean[item.mean<(1/ncases)] <- 1/ncases
irt.item.diff.rasch <- log((1/item.mean)- 1) }
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.