Nothing
##
##
## 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.