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]]
______________________________________________
[email protected] 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.
