Nothing
## File Name: rm_sdt_calc_probs_gpcm.R
## File Version: 0.11
rm_sdt_calc_probs_gpcm <- function(a.item, tau.item, Qmatrix, theta.k, VV, K, TP,
eps=0, use_log=FALSE)
{
a <- a.item
b <- tau.item
res <- rm_pcm_calcprobs( a=a, b=b, Qmatrix=Qmatrix, theta.k=theta.k, I=VV, K=K, TP=TP )
if (eps > 0){
res[ res < eps ] <- eps
}
if (use_log){
res <- log(res)
}
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.