R/plie.c.VM.R

Defines functions plie.c.VM

plie.c.VM <-
function(m,kappa,constr){

if (constr) {par = c(m,log(kappa[1]),Re(kappa[2:length(kappa)])*exp(-1i*Arg(kappa[length(kappa)])),Arg(kappa[length(kappa)]))}
else {
  if (length(kappa)>1) {par = c(m,log(kappa[1]),Re(kappa[2:length(kappa)]),Im(kappa[2:length(kappa)]))} # order>1
  else {par = c(m,log(kappa[1]))}}

}

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.