R/t.dbn.ci.r

Defines functions t.dbn.ci

#' @export
t.dbn.ci<-function(point,var,level,df)
{
  sig<-(1-level)/2
  lower<-point+qt(sig,df=df)*sqrt(var)
  upper<-point+qt((1-sig),df=df)*sqrt(var)
  list(ci.lower=lower,ci.upper=upper)
}
david-borchers/sampling documentation built on Sept. 17, 2022, 7:54 a.m.