R/p1p2.c.b.R

`p1p2.c.b` <-
function (p1,p2)    ifelse(!(le(0,p1) && le(p1,1) && le(0,p2) && le(p2,1)),              NA, ifelse(eq(p1,0)&&gt(p2,0), NA, p1*p2))

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.