## File Name: noharm_sirt_partable_include_par.R
## File Version: 0.01
noharm_sirt_partable_include_par <- function(par, parm_table)
{
non_fixed <- attr(parm_table, "non_fixed")
include_index <- attr(parm_table, "include_index")
parm_table$est[ non_fixed ] <- par[ include_index ]
return(parm_table)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.