R/hspher.mle.R

In MLE: Maximum Likelihood Estimation of Various Univariate and Multivariate Distributions

hspher.mle <- function(x, distr = "vmf", ina, full = FALSE, ell = FALSE, tol = 1e-07) {
   if ( distr == "vmf" ) {
     res <- Rfast::vmf.mle(x, tol = tol)
   } else if ( distr == "multivmf" ) {
     res <- Rfast::multivmf.mle(x , ina, tol = tol, ell = ell)
   } else if ( distr == "acg" ) {
     res <- Rfast::acg.mle(x, tol = tol)
   } else if ( distr == "iag" ) {
     res <- Rfast::iag.mle(x, tol = tol)
   } else if ( distr == "spcauchy" ) {
     res <- Directional::spcauchy.mle(x, tol = tol)
   } else if ( distr == "spcauchy2" ) {
     res <- Directional::spcauchy.mle2(x, tol = tol)
   } else if ( distr == "sipc" ) {
     res <- Directional::sipc.mle(x, tol = tol)
   } else if ( distr == "pkbd" ) {
     res <- Directional::pkbd.mle(x, tol = tol)
   } else if ( distr == "pkbd2" ) {
     res <- Directional::pkbd.mle2(x, tol = tol)
   } else if ( distr == "purka" ) {
      res <- Rfast2::purka.mle(x)
   } else if ( distr == "kent" ) {
     res <- Directional::kent.mle(x)
   } else if ( distr == "esag" ) {
     res <- Directional::esag.mle(x, full = full, tol = tol)
    } else if ( distr == "sespc" ) {
     res <- Directional::sespc.mle(x, full = full, tol = tol)
    } else if ( distr == "ESAGd" ) {
      res <- Directional::ESAGd.mle(x, full = full)
   } else if ( distr == "wood" ) {
     res <- Directional::wood.mle(x)
   }
   res
}