Try this: library(lattice) x <- 1:10 i <- 3 xlab <- as.expression(substitute(beta[i] * x[i] + epsilon, list(i = i))) xyplot(x ~ x, xlab = xlab)
On 6/6/07, Nitin Jain <[EMAIL PROTECTED]> wrote: > Dear R-users, > > In the following example, I would like to see my ylabel as: "beta[3] * x[3] + > epsilon" (where beta and epsilon are replaced by their mathematical symbols). > > Please advise. > > Thanks. > > Nitin > > > i <- 3 > > ee <- expression(beta[i] * x[i] + epsilon) > > xyplot(1:10~ 11:20, > ylab = parse(text=ee) > ) > > > > > > ____________________________________________________________________________________ > 8:00? 8:25? 8:40? Find a flick in no time > > ______________________________________________ > [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. > ______________________________________________ [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.
