R/deplie.VM.R

Defines functions deplie.VM

deplie.VM <-
function(par) { 

  m = par[1] %% (2*pi)  
  if (length(par)>2) {kappa = c(exp(par[2]),par[3:length(par)])}
  else {kappa = c(exp(par[2]))}
  res <- NULL
  res$m <- m
  res$kappa <- kappa
  return(res)

}

Try the NHMSAR package in your browser

Any scripts or data that you put into this service are public.

NHMSAR documentation built on Feb. 9, 2022, 9:06 a.m.