#' @title S4 class \code{FLiem}
#'
#' @description The \code{FLiem} class stores the information relative to the implementation error model of the MSE.
#'
#' @section Slots:
#' \describe{
#' \item{method}{\code{character} with the name of the method to be run. Note a function of method must exist in the environment with the same name.}
#' \item{args}{\code{list} with arguments to be passed to the function defined in \code{method}}
#' @template Accessors
#' @template Constructors
#' @docType class
#' @name FLiem-class
#' @rdname FLiem-class
#' @aliases FLiem-class
#' @examples
FLiem <- setClass("FLiem", contains = "mseCtrl")
#' @rdname FLiem-class
#' @template bothargs
#' @aliases FLiem FLiem-methods
setMethod("initialize", "FLiem",
function(.Object, ...) {
.Object <- callNextMethod(.Object, ...)
.Object
})
#' @rdname FLiem-class
setMethod("iter", signature(obj = "FLiem"),
function(obj, iter) {
args(obj) <- lapply(obj@args, function(x) {
if(is(x, "FLQuant")) FLCore::iter(x, iter) else x
})
do.call(class(obj), list(obj))
})
setMethod("iter", signature(obj = "NULL"),
function(obj, iter) {
return(NULL)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.