R/diag2.R

Defines functions diag2

## File Name: diag2.R
## File Version: 0.04

diag2 <- function( vec)
{
    if ( length(vec) > 1){
        res <- diag(vec)
    } else {
        res <- matrix(vec, nrow=1,ncol=1)
    }
    return(res)
}
alexanderrobitzsch/sirt documentation built on March 27, 2024, 5:50 a.m.