## File Name: rm_sdt_extract_par_from_partable_add_increment.R
## File Version: 0.07
rm_sdt_extract_par_from_partable_add_increment <- function(partable,
pargroup, increment )
{
partable <- partable[ partable$est, ]
res <- partable[ partable$est, "value" ]
res <- res + increment * ( partable$pargroup==pargroup )
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.