R/mlnormal_check_matrix_list_difference.R

In alexanderrobitzsch/LAM: Some Latent Variable Models

## File Name: mlnormal_check_matrix_list_difference.R
## File Version: 0.051

mlnormal_check_matrix_list_difference <- function( matlist1, matlist2 )
{
    G <- length(matlist1)
    val <- 0
    for (gg in 1L:G){
        val_gg <- max( abs( matlist1[[gg]] - matlist2[[gg]] ))
        if ( val_gg > val ){
            val <- val_gg
        }
    }
    return(val)
}