R/sirt_matrix_lower_to_upper.R

Defines functions sirt_matrix_lower_to_upper

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

sirt_matrix_lower_to_upper <- function(x)
{
    N <- ncol(x)
    for (ii in 1:N){
        for (jj in ii:N){
            x[ii,jj] <- x[jj,ii]
        }
    }
    return(x)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.