R/cbmodels.R

In cbmodels: Collection of "combined" models: PCA-LDA, PLS-LDA, etc.

##' Collection of mainly combined models
##'
##' This package provides a collection of models, including "combined" models:
##'
##' \itemize{
##' \item PCA-LDA
##' \item PLS-LDA
##' \item PCA with added reference
##' \item EMSC
##' }
##' 
##' @name cbmodels-package
##' @docType package
##' 
{
  if (!require ("svUnit", quietly = TRUE)){
    `.test<-` <- function (f, value) {
      class (value) <-  c ("svTest", "function")
      attr (f, "test") <- value
      f
    }
  } else {
    `.test<-` <- svUnit::`test<-`

    checkEqualsOrdered <- function (target, current, ...)
      checkEquals (target [order (names (target))], current [order (names (current))], ...)

    checkEqualAttributes <- function (target, current, ...)
      checkEqualsOrdered (attributes (target), attributes (current), ...) # TODO: exclusion list

  }
}