R/sirt_summary_label_equal_value.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: sirt_summary_label_equal_value.R
## File Version: 0.07

sirt_summary_label_equal_value <- function( label, value, label2="", digits=NULL )
{
    if ( ! is.null(digits) ){
        value <- round( value, digits)
    }
    res <- paste0( label, ' ', '=', ' ', value, ' ', label2 )
    return(res)
}