R/is.aep4.R

"is.aep4" <-
function(para) {
    if(para$type != "aep4") {
      warning("Parameters are not 4-p Asymmetric Exponential parameters.")
      return(FALSE)
    }
    return(TRUE)
}
wasquith/lmomco documentation built on April 20, 2024, 7:20 p.m.