R/precision.grubbs.ncb.od.R

"precision.grubbs.ncb.od" <-
function (x,beta.bar.x=beta.bar(x)) 
{
# Grubbs Precision estimates for NonConstant Bias using Original Data
# Jaech, p. 184

  sqrt(diag(var(x))-beta.bar.x^2*process.sd(x)^2)

}

Try the merror package in your browser

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

merror documentation built on May 29, 2017, 5:53 p.m.