On Thu, 15-Nov-2012 at 07:29PM -0700, ilai wrote:
|> dotplot(variety ~ yield | year+ site, barley,
|> strip = function(...,which.given,factor.levels) {
|> if(which.given==2){
|> strip.default(which.given,factor.levels=substr(levels(barley$site), 1,
|> 1),style=4,...)
|> }
|> else{
|>
|>
strip.default(which.given=which.given,factor.levels=factor.levels,style=3,...)
|> }
|> }
|> )
|>
Thanks for that. I'd never have figured it out myself. Seeing how
that worked helped me get done what I was trying to do.
--
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.
___ Patrick Connolly
{~._.~} Great minds discuss ideas
_( Y )_ Average minds discuss events
(:_~*~_:) Small minds discuss people
(_)-(_) ..... Eleanor Roosevelt
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
