and

Usage

and(p, q, r, qv = c(TRUE, FALSE), rv = c(TRUE, FALSE))

Arguments

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (p, q, r, qv = c(TRUE, FALSE), rv = c(TRUE, FALSE)) 
{
    lq <- length(qv)
    lr <- length(rv)
    w <- outer(qv, rv, "&")
    pr <- aperm(array(c(w, !w), c(lq, lr, 2)), c(3, 1, 2))
    tab(c(p, q, r), c(2, lq, lr), as.numeric(pr))
    vs(p, c("yes", "no"))
  }