R/checkEstClassForParamFamiliyMethods.R

In RobExtremes: Optimally Robust Estimation for Extreme Value Distributions

.castToALE <- function(PFam, estimator, toclass){
                 fromSlotNames <- slotNames(class(estimator))
                 to <- new(toclass)
                 for(item in fromSlotNames) slot(to, item) <- slot(estimator,item)
                 to@pIC <- substitute(getPIC(estimator0), list(estimator0=estimator))
                 return(to)
}


setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="Estimate"),
              function(PFam, estimator) as(estimator,"GPDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="LDEstimate"),
              function(PFam, estimator) as(estimator,"GPDLDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="kStepEstimate"),
              function(PFam, estimator) as(estimator,"GPDkStepEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="ORobEstimate"),
              function(PFam, estimator) as(estimator,"GPDORobEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="MCEstimate"),
              function(PFam, estimator) as(estimator,"GPDMCEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="MDEstimate"),
              function(PFam, estimator) as(estimator,"GPDMDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="MLEstimate"),
              function(PFam,estimator) .castToALE(PFam, estimator, "GPDML.ALEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GParetoFamily",estimator="CvMMDEstimate"),
              function(PFam,estimator) .castToALE(PFam, estimator, "GPDCvMMD.ALEstimate"))


setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="Estimate"),
              function(PFam, estimator) as(estimator,"GEVEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="LDEstimate"),
              function(PFam, estimator) as(estimator,"GEVLDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="kStepEstimate"),
              function(PFam, estimator) as(estimator,"GEVkStepEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="ORobEstimate"),
              function(PFam, estimator) as(estimator,"GEVORobEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="MCEstimate"),
              function(PFam, estimator) as(estimator,"GEVMCEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="MDEstimate"),
              function(PFam, estimator) as(estimator,"GEVMDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="MLEstimate"),
              function(PFam,estimator) .castToALE(PFam, estimator, "GEVML.ALEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamily",estimator="CvMMDEstimate"),
              function(PFam,estimator) .castToALE(PFam, estimator, "GEVCvMMD.ALEstimate"))


setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="Estimate"),
              function(PFam, estimator) as(estimator,"GEVEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="LDEstimate"),
              function(PFam, estimator) as(estimator,"GEVLDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="kStepEstimate"),
              function(PFam, estimator) as(estimator,"GEVkStepEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="ORobEstimate"),
              function(PFam, estimator) as(estimator,"GEVORobEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="MCEstimate"),
              function(PFam, estimator) as(estimator,"GEVMCEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="MDEstimate"),
              function(PFam, estimator) as(estimator,"GEVMDEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="MLEstimate"),
              function(PFam,estimator) .castToALE(PFam, estimator, "GEVML.ALEstimate"))
setMethod(".checkEstClassForParamFamily",
              signature=signature(PFam="GEVFamilyMuUnknown",estimator="CvMMDEstimate"),
              function(PFam,estimator) .castToALE(PFam, estimator, "GEVCvMMD.ALEstimate") )