Nothing
## File Name: regpolca_define_customItems.R
## File Version: 0.06
regpolca_define_customItems <- function(ncats, K, dat, par_item_max)
{
cats_u <- unique(ncats)
customItems <- list(1:length(cats_u))
for (ncat in cats_u){
par <- xxirt_irf_lca_init_par(K=K, ncat=ncat, random_sd=0)
item_lc <- xxirt_createDiscItem( name=paste0('LC',ncat), par=par,
est=rep(TRUE,K*(ncat-1)), P=xxirt_irf_lca )
ii <- which(ncat==cats_u)
customItems[[ii]] <- item_lc
}
itemtype <- paste0( 'LC', ncats )
partable <- xxirt_createParTable( dat=dat, itemtype=itemtype,
customItems=customItems)
partable$lower <- -par_item_max
partable$upper <- par_item_max
#- output
res <- list(customItems=customItems, partable=partable,
itemtype=itemtype)
return(res)
}
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.