R/add.colnames.resp.R

In TAM: Test Analysis Modules

## File Name: add.colnames.resp.R
## File Version: 9.09

add.colnames.resp <- function(resp)
{
    if( is.null(colnames(resp)) ){
        I <- ncol(resp)
        colnames(resp) <- paste0("I",1:I)
    }
    return(resp)
}