R/fleishman.roots.R

Defines functions fleishman.roots

Documented in fleishman.roots

fleishman.roots <-
function(p, r){
  f = rep(NA,length(p))
  f[1] = p[1]^2 + 6*p[1]*p[3]+2*p[2]^2+15*p[3]^2-1
  f[2] = 2*p[2]*(p[1]^2+24*p[1]*p[3]+105*p[3]^2+2)-r[1]
  f[3] = p[1]*p[3]+p[2]^2*(1+p[1]^2+28*p[1]*p[3])+p[3]^2*(12+48*p[1]*p[3]+141*p[2]^2+225*p[3]^2)-r[2]/24
  return(f)}

Try the PoisNonNor package in your browser

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

PoisNonNor documentation built on March 22, 2021, 9:07 a.m.