## File Name: xxirt_modifyParTable.R
## File Version: 0.201
#**** modify parameter table
xxirt_modifyParTable <- function( partable, parname, item=NULL, value=NULL,
est=NULL, parlabel=NULL, parindex=NULL, lower=NULL,
upper=NULL, prior=NULL, prior_par1=NULL, prior_par2=NULL )
{
if ( is.null(item) ){
item <- paste( unique(partable$item ))
}
ind <- which( (partable$parname %in% parname) & (partable$item %in% item ) )
vv <- value ; vv_name <- 'value'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- est ; vv_name <- 'est'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- lower ; vv_name <- 'lower'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- upper ; vv_name <- 'upper'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- prior ; vv_name <- 'prior'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- prior_par1 ; vv_name <- 'prior_par1'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- prior_par2 ; vv_name <- 'prior_par2'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- parlabel ; vv_name <- 'parlabel'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
vv <- parindex ; vv_name <- 'parindex'
if ( ! is.null(vv) ){ partable[ ind, vv_name ] <- vv }
#*** output
return(partable)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.