R/mu.R

#'Calculate effective strip half width
#'
#'
mu<-function(neo.para,z,mdspec,td,rescale=1,...){
  integrate(neo.gx,0,td,z,neo.para,mdspec,c.p=10)$value*rescale
}#mu
y-yasutomo/maliaver0 documentation built on July 5, 2019, 6:22 a.m.