search for: volop

Displaying 1 result from an estimated 1 matches for "volop".

Did you mean: valop
2011 Aug 08
0
Odp: Fw: R function for Gage R&R
...-- ORanal<-function(operator,vzorek,vysledek, sigma=5.15, DM=NULL ,HM=NULL, toler=NULL, plotit=F, dig=4) { if (!is.factor(vzorek)) vzorek<-factor(vzorek) if (!is.factor(operator)) operator<-factor(operator) if (is.null(toler)) toler<-abs(HM-DM) fit<-aov(vysledek~vzorek*operator) volop<-nlevels(operator[,drop=T]) volvzor<-nlevels(vzorek[,drop=T]) opak<-length(operator)/(volop*volvzor) ctver<-anova(fit)[,3] result=NULL result[3]<-(ctver[3]-ctver[4])/opak result[5]<-ctver[4] result[1]<-(ctver[1]-ctver[4]-result[3]*opak)/(volop*...