R/tf-s4.R

In tf: S3 Classes and Methods for Tidy Functional Data

#' @include tfd-class.R tfb-class.R tfb-spline.R tfb-fpc.R
#' @importFrom methods setClass setOldClass
setClass("tf",
         contains = "structure",
         slots = c(
           domain = "numeric",
           arg = "vector"
         ),
         prototype = structure(
           list(),
           domain = c(NA_real_, NA_real_),
           arg = numeric()
         )
)
setOldClass("tf", S4Class = "tf")

setClass("tfd",
         contains = "tf",
         slots = c(
           evaluator = "function",
           evaluator_name = "character"
         ),
         prototype = structure(
           list(),
           domain = c(NA_real_, NA_real_),
           arg = numeric(),
           evaluator = function(x, arg, evaluations) NULL,
           evaluator_name = NA_character_
         )
)
setOldClass("tfd", S4Class = "tfd")

setClass("tfd_reg",
         contains = "tfd",
         slots = c(
           arg = "list"
         ),
         prototype = structure(
           list(),
           domain = c(NA_real_, NA_real_),
           arg = list(),
           evaluator = function(x, arg, evaluations) NULL,
           evaluator_name = NA_character_
         )
)
setOldClass("tfd_reg", S4Class = "tfd_reg")

setClass("tfd_irreg", contains = "tfd")
setOldClass("tfd_irreg", S4Class = "tfd_irreg")

setClass("tfb",
         contains = "tf",
         slots = c(
           arg = "numeric",
           basis = "function",
           basis_label = "character",
           basis_args = "list",
           basis_matrix = "matrix",
           family = "function"
         ),
         prototype = structure(
           list(),
           domain = c(NA_real_, NA_real_),
           arg = numeric(),
           basis = function(x, arg, evaluations) NULL,
           basis_label = NA_character_,
           basis_args = list(),
           basis_matrix = matrix(NA_real_, 1, 1),
           family = function() NULL
         )
)
setOldClass("tfb", S4Class = "tfb")