R/expected.R

Defines functions expected

Documented in expected

expected <-
  function(x){
    if(!is.matrix(x)){stop("Must be a matrix")}
    rtot <- margin.table(x, 1)
    ctot <- margin.table(x, 2)
    tot <- margin.table(x)
    outer(rtot, ctot, "*")/tot
  }

Try the epitools package in your browser

Any scripts or data that you put into this service are public.

epitools documentation built on Nov. 17, 2017, 7:58 a.m.