R/c.a2.b.R

`C.a2.b` <-
function (c)        ifelse(!(le(0,c) && le(c,1)),                                        NA, 1-pchisq(-2*log(c), 4))

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.