I want to use a strip.custom as with useOuterStrips for three conditioning
variables.
useOuterStrips restricts this to only two conditioning variables, and I
cannot figure out
how to write strip.custom properly to do this.

library(lattice)

mtcars$HP <- equal.count(mtcars$hp)

#with two factors
x2<-xyplot(mpg ~ disp | HP + factor(cyl), mtcars)
useOuterStrips(x2)


#with three factors
x3<-xyplot(mpg ~ disp | HP + factor(cyl) + factor(carb), mtcars)

update(x3,strip=strip.custom(which.given= 1),
 strip2=strip.custom(which.given= 2),
 strip.left=strip.custom(which.given=3)
)

--
Patrick Schmitz
Graduate Student
Plant Biology
1206 West Gregory Drive
RM 1500

	[[alternative HTML version deleted]]

