On Thu, Apr 16, 2009 at 1:45 PM, Sundar Dorai-Raj <sdorai...@gmail.com> wrote:
> Sorry, that should be:
>
> sigma <- as.numeric(levels(z$sigma))
> sigmaExprList <- lapply(sigma, function(s) bquote(sigma == .(s)))
> sigmaExpr <- as.expression(sigmaExprList)
> bwplot(Error~Method | sigma, data = z,
> horiz = F, xlab = "Method",
> strip = function(which.given, which.panel, var.name,
> strip.levels = FALSE,
> strip.names = TRUE, ...) {
> strip.default(which.given, which.panel,
> var.name = sigmaExpr[which.panel],
> strip.levels = FALSE,
> strip.names = TRUE, ...)
> },
> layout = c(3,1))
>
> Not sure how to do this with strip.custom.
bwplot(Error~Method | sigma, data = z ,
strip = strip.custom(strip.names = TRUE, var.name =
expression(sigma), sep = expression(" = ")))
The formatting wouldn't be as good though.
-Deepayan
______________________________________________
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.
