R/compareOrig.R

In nlcv: Nested Loop Cross Validation

## 
##
## the return value is a 
## 
## 


#' function to compare the original matrix of correct classes to
#' each component of the output object for a certain classifier
#' @param nlcvObj return of the \code{\link{nlcv}} function
#' @param techn technique for which the comparison to correct classes should be made
#' @return list with for each number of features selected,
#' a matrix of logical values indicating whether the classifier results
#' correspond (TRUE) or not (FALSE) to the original values to be classified
compareOrig <- function(nlcvObj,  # object as produced by the nlcv function
        techn
        ){ 
    
    # matrix with all rows corresponding to the correct classes
    # for the samples
    nRuns <- length(nlcvObj$features)
    origmat <- matrix(rep(as.character(attr(nlcvObj, "classVar")), 
                    nRuns),  # number of runs
            ncol = length(attr(nlcvObj, "classVar")), byrow = TRUE)
    
    technList <- nlcvObj$output[[techn]]
    compmatList <- lapply(technList, function(x){
                res <- x$labelsMat == origmat
                return(res)
            })
    return(compmatList)
}