R/caret_utils.R

In hsdar: Manage, Analyse and Simulate Hyperspectral Data

  
.getAttrParameters <- function()  
  c("response", "predictor")
  
.getCaretCompatibleClasses <- function()
  c("Speclib", "Nri", "Specfeat")
 
setClassUnion(".CaretHyperspectral", .getCaretCompatibleClasses())

setOldClass("preProcess")

setClass(".preProcessHyperspectral",
         representation(
           preProcess = "preProcess"
         ),
         prototype(
           preProcess = list()
         )
)

setMethod("show", ".preProcessHyperspectral", function(object) show(object@preProcess))