R/gates_eff.R

Defines functions gates_eff

Documented in gates_eff

gates_eff <-
function(dx, dy, marks, par=list(a=1, b=4, smark=1)) {
# Gates et al efficiency functions  [1 - (b R / s)^a]^(1/a) 
    with(as.list(par),
         (pmax(0, 1 - (b * sqrt(dx^2 + dy^2) / marks[[smark]])^a))^(1/a)
    )
}

Try the siplab package in your browser

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

siplab documentation built on March 18, 2022, 6:53 p.m.