Nothing
#### Projected multivariate normal MLE
#### Presnell, Morrison and Littell (1998), JASA
################################
spml.mle <- function(x, rads = FALSE, tol = 1e-07) {
if ( !rads ) x <- x * pi/180
mod <- Rfast::spml.mle(x, tol = tol)
mod$mumu <- ( atan(mod$mu[2]/mod$mu[1]) + pi * I(mod$mu[1] < 0) ) %% (2 * pi)
mod
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.