R/CIptKM.R

CIptKM <-
function (z, conf) {
  upper <- sqrt (z$v / z$N) * z$S * qnorm ((1 + conf) / 2)
  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.