R/iv.R

Defines functions iv

Documented in iv

iv<-function(sobj){

k<-sum(sobj$n.event>0)

if (k <= 100) q95<-(3.6792+0.5720*log(k)-0.0567*(log(k))^2+0.0027*(log(k))^3)/k
   else       q95<-(3.7752+0.5062*log(k)-0.0417*(log(k))^2+0.0016*(log(k))^3)/k

q95}

Try the kmconfband package in your browser

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

kmconfband documentation built on May 2, 2019, 2:49 p.m.