R/CIefrKM.R

CIefrKM <-
function (z, obs, conf) {
  upper <- sqrt (z$v[sum (z$t <= obs)] / z$N) * z$S * qSupBrnMotn (conf)
  upper[z$t > obs] <- NA
  list (t=z$t, maxt=z$maxt, lower=z$S-upper, upper=z$S+upper, S=z$S)
}

Try the uwIntroStats package in your browser

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

uwIntroStats documentation built on May 2, 2019, 4:34 a.m.