R/tam_args_replace_value.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: tam_args_replace_value.R
## File Version: 0.02

tam_args_replace_value <- function( args, variable=NULL, value=NULL)
{
    if ( ! is.null(variable) ){
        args[[ variable ]] <- value
    }
    return(args)
}