R/LRNormalVariance_UM.R

Defines functions LRNormalVariance_UM

Documented in LRNormalVariance_UM

LRNormalVariance_UM <-
function(x,sigma0,alpha){
  S <- var(x); n <- length(x)
  chidata <- ((n-1)*S)/(sigma0^2)
  ifelse((chidata<qchisq(df=n-1,p=alpha/2)|| (chidata>qchisq(df=n-1,p=1-alpha/2))),"Reject Hypothesis H","Fail to Reject Hypothesis H")
}

Try the ACSWR package in your browser

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

ACSWR documentation built on May 29, 2017, 8:41 p.m.