R/egg.breadth.R

egg.breadth = function(egg) {
  opt = optimize(f=get.d, interval=c(0,1), maximum=TRUE, tol=1e-7, egg=egg)
  d = get.d(opt$maximum, egg)
  return(d)
}

Try the eggs package in your browser

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

eggs documentation built on May 2, 2019, 5:23 p.m.