R/tam_deviance_history_init.R

In TAM: Test Analysis Modules

## File Name: tam_deviance_history_init.R
## File Version: 0.05

tam_deviance_history_init <- function(maxiter)
{
    deviance.history <- matrix( 0, nrow=maxiter, ncol=2)
    colnames(deviance.history) <- c("iter", "deviance")
    deviance.history[,1] <- 1:maxiter
    return(deviance.history)
}