[R] strip function

[Deepayan Sarkar]

On 10/4/06, jessica.gervais at tudor.lu <jessica.gervais at tudor.lu> wrote:
> 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 ?

Yes;

(1) acquire some rudimentary R programming skills, which you currently
do not seem to have. See the links under "Documentation" in
http://www.r-project.org for some possible starting points.

(2) read the posting guide at
http://www.R-project.org/posting-guide.html, and follow its
suggestions. In particular, give a _reproducible example_ and describe
what you _want to do_, not some badly written code which fails to do
it (in fact I'm surprised that your code does anything at all).

Deepayan