Displaying 1 result from an estimated 1 matches for "interlaboratorio".
2014 Dec 17
3
Problema con el subset
...)
dfgrupo<-subset(df,df$parametroslaboratorio=="Aflatoxinas ByG")
niveles <- as.numeric(dfgrupo$param)
ntrees <- max(niveles)
xrange <- range(as.Date(dfgrupo$fecha))
yrange <- range(dfgrupo$z)
plot(xrange, yrange, type = "n", xlab = "Fecha del interlaboratorio",
ylab = "Z-score")
colors <- rainbow(ntrees)
ltipo <- c(1:ntrees)
char <- seq(18, 18 + ntrees, 1)
# Añadir las lineas al grafico
for (i in 1:ntrees) {
tree <- dfgrupo[ dfgrupo$param == levels( dfinter$param )[ i ], ]
lines(as.Date(...