R/a2.c.b.R

`a2.c.b` <-
function (a2)       ifelse(!(le(0,a2) && le(a2,1)),                                      NA, exp(-qchisq(1-a2,4)/2))

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.