R/invariance_alignment_proc_labels.R

Defines functions invariance_alignment_proc_labels

## File Name: invariance_alignment_proc_labels.R
## File Version: 0.05

invariance_alignment_proc_labels <- function(x)
{
    G <- nrow(x)
    I <- ncol(x)
    if (is.null(colnames(x))){
        colnames(x) <- paste0('I', 1:I)
    }
    if (is.null(rownames(x))){
        rownames(x) <- paste0('G', 1:G)
    }
    return(x)
}

Try the sirt package in your browser

Any scripts or data that you put into this service are public.

sirt documentation built on May 29, 2024, 8:43 a.m.