## File Name: xxirt_parTheta_extract_freeParameters.R
## File Version: 0.08
xxirt_parTheta_extract_freeParameters <- function( customTheta )
{
ind <- customTheta$est
p1 <- customTheta$par[ ind ]
names(p1) <- names(customTheta$par)[ind]
return(p1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.