R/MultAdj.MultAdjStrategy.R

Defines functions MultAdj.MultAdjStrategy

######################################################################################################################

# Function: MultAdj.MultAdjStrategy.
# Argument: MultAdjStrategy object
# Description: This function is used to create an object of class MultAdjStrategy.
#' @export
MultAdj.MultAdjStrategy = function(...) {

  multadj = lapply(list(...),function(x) {if(class(x)=="MultAdjProc") list(unclass(x)) else unclass(x)} )

  class(multadj) = "MultAdj"
  return(multadj)
  invisible(multadj)

}
gpaux/Mediana documentation built on May 31, 2021, 1:22 a.m.