R/lam_vcov_to_se.R

In alexanderrobitzsch/LAM: Some Latent Variable Models

## File Name: lam_vcov_to_se.R
## File Version: 0.03

lam_vcov_to_se <- function(x, to_matrix=FALSE, byrow=TRUE)
{
    N <- nrow(x)
    y <- sqrt(diag(x))
    if (to_matrix){
        N1 <- sqrt(N)
        y <- matrix(y, nrow=N1, ncol=N1, byrow=byrow)
    }
    return(y)
}