Nothing
## File Name: prob_genlogis_4pl.R
## File Version: 0.08
prob_genlogis_4pl <- function(theta, b, a, c, d, alpha1, alpha2, Qmatrix)
{
pjk <- prob_raschtype_genlogis( theta=theta, b=b, alpha1=alpha1,
alpha2=alpha2, fixed.a=a, Qmatrix=Qmatrix)
if ( (any(c>0)) | (any(d<1)) ){
np <- nrow(pjk)
cM <- sirt_matrix2( x=c, nrow=np )
dM <- sirt_matrix2( x=d, nrow=np )
pjk <- cM + (dM - cM) * pjk
}
#--- output
return(pjk)
}
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.