R/diag2.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## 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)
}