R/ws.R

w.s<-function(ui, df, ci=rep(1, length(ui)), uc=sqrt(sum((ci*ui)^2)) ) {
	(uc^4)/sum( ((ci*ui)^4) / df) 
}

welch.satterthwaite<-function( ui, df, ci=rep(1, length(ui)), uc=sqrt(sum((ci*ui)^2)) ) {
	w.s(ui,df,ci,uc)
}

Try the metRology package in your browser

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

metRology documentation built on May 2, 2019, 12:20 p.m.