Hi,

I would like to asign titles into strip of a panel of curves designed 
thanks to a xyplot function (lattice package)
I ve tried the "strip" function, ...

here is my code
I would like to write in the strip of each panel conditionning varialbe 
(here, it is data[,1])
 xyplot (data[,3] ~ data[,2] | data[,1] ,  strip.default (which.given=1, 
which.panel = c(1:15), var.name= c 
("26","28","15","2","31","10","16","21","21.5","5","17","14","7","8","30"), 
factor.levels=c("26","28","15","2","31","10","16","21","21.5","5","17","14","7","8","30"),strip.names=c(1,0),strip.levels=c(0,0)),panel=function(x,y)
        {
        panel.xyplot(x,y,pch=4,col=3)
        type = c("p", "r")
        COEFF<-coef(lm(log(y)~x))
        panel.curve(exp(COEFF[1]+COEFF[2]*x),col=4)
        a<-round(COEFF[1],digit=2)
        b<-round(COEFF[2],digit=2)
        formula<-as.name(paste("y=exp(",a,b,"x)",sep=""))
        panel.text(10,700,formula)
        })


I cannot get anny result exept one page with a big strip on which is 
written 26 and then the curve without specified strip

CAn anyone give me some advices ?

Thanks by advance

Jessica Gervais

	[[alternative HTML version deleted]]

