R/interval_estimate3.R

In OneTwoSamples: Deal with One and Two (Normal) Samples

Defines functions interval_estimate3

Documented in interval_estimate3

interval_estimate3<-function(x,sigma=-1,alpha=0.05){ 
   n<-length(x); xb<-mean(x)
   if (sigma>=0)
      tmp<-sigma/sqrt(n)*qnorm(1-alpha/2)
   else
      tmp<-sd(x)/sqrt(n)*qnorm(1-alpha/2)
   data.frame(mean=xb, a=xb-tmp, b=xb+tmp)
}

Try the OneTwoSamples package in your browser