R/rounded.tprob.R

Defines functions rounded.tprob

Documented in rounded.tprob

rounded.tprob <- function(y, m, s, df) {
  t1 <- (y + .5 - m) / sqrt(s)
  t2 <- (y - .5 - m) / sqrt(s)
  sum(log(pt(t1, df) - pt(t2, df)))
}

Try the exactLoglinTest package in your browser

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

exactLoglinTest documentation built on May 1, 2019, 9:58 p.m.