R/c.a2.v.R

`C.a2.v` <-
function (c)        ifelse(!(le(0,c)),                                                   NA, ifelse(eq(c,0), 0, ifelse(eq(c,Inf), 1, exp(lgamma(1/c)-lgamma(1/c+.5)-2*log(2)/c)*sqrt(pi)/c)))

Try the adaptTest package in your browser

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

adaptTest documentation built on Oct. 6, 2023, 5:08 p.m.