R/LRNormalMean_UV.R

LRNormalMean_UV <-
function(x,mu0,alpha){
  S <- sd(x); n <- length(x)
  ifelse(abs(sqrt(length(x))*(mean(x)-mu0)/S)>qt(n-1,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 2, 2019, 6:53 a.m.