Displaying 1 result from an estimated 1 matches for "ecmax".
Did you mean:
ecma
2008 Feb 11
1
Histogram in Lattice with 3 factors
...code:
my.strip <- function(which.given, ..., factor.levels) {
levs <- if (which.given == 1) c("Model A","Model B")
else {if(which.given == 2) paste("EC =
",as.character(EC),"dS/m")
else paste("ECmax = ",as.character(EC_max),"dS/m")}
strip.default(which.given, ..., factor.levels = levs)
}
histogram(~s|model*as.factor(EC)*as.factor(EC_max),data=Store,xlab="soil
saturation",type="density",strip=my.strip)
But I am doing something wrong, bec...