## File Name: xxirt_partable_include_freeParameters.R
## File Version: 0.11
xxirt_partable_include_freeParameters <- function( partable, x )
{
vals <- x[ partable$parindex ]
ind <- is.na(vals)
vals[ ind ] <- partable$value[ ind ]
partable$value <- vals
return(partable)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.