Displaying 2 results from an estimated 2 matches for "prumer".
Did you mean:
primer
2003 Feb 21
2
how to chage values in data frame to NA iside a function
Dear all
I have a function in which I would like to change some values to NA according to
some condition.
dropout<-function(y, nahr=FALSE,...) {
<some stuff for computing an index>
if (nahr) y[index]<<-NA
invisible(index)
}
in case y is a vector all works OK but if it is a part of data frame by calling
dropout(df$y) or dropout(df[,number]) no change is done.
Please can you
2011 Aug 08
0
Odp: Fw: R function for Gage R&R
...;-volvzor*1:volop
mat<-aggregate(vysledek,list(vzorek,operator),mean,na.rm=T)
mat1<-aggregate(vysledek,list(vzorek,operator),sd,na.rm=T)
#fig1
hmdm<-c(mean(mat$x)+(mean(mat1$x)/.9)/sqrt(opak)*3,
mean(mat$x)-(mean(mat1$x)/.9)/sqrt(opak)*3)
plot(mat$x,type="b",ylab="Prumery")
abline(h=mean(mat$x),col=3)
abline(h=hmdm,col=2)
abline(v=posice+.5,col="grey",lwd=2,lty=2)
text(posice-volvzor/2,max(mat$x),levels(operator[,drop=T]))
#fig2
# mat<-reshape(mat,direction="wide",idvar="Group.1",timevar="G...