R/p1p2.c.l.R

`p1p2.c.l` <-
function (p1,p2)    ifelse(!(le(0,p1) && le(p1,1) && le(0,p2) && le(p2,1)),              NA, ifelse((eq(p1,0)&&gt(p2,0))||(eq(p1,1)&&lt(p2,1)), NA, (qnorm(1-p1)+qnorm(1-p2))/sqrt(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.