From 73b761b8dbfafa00ce7702afb9e655030dc9ed29 Mon Sep 17 00:00:00 2001 From: "Antonio, Fabio Di Narzo" Date: Wed, 5 Dec 2007 01:20:02 +0100 Subject: [PATCH] fixed image orientation in as.grob.lexpMap method --- RiDMC/R/lexpMap.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/RiDMC/R/lexpMap.R b/RiDMC/R/lexpMap.R index cbf4251..adff11c 100644 --- a/RiDMC/R/lexpMap.R +++ b/RiDMC/R/lexpMap.R @@ -122,8 +122,7 @@ as.grob.idmc_lexp_map <- function(x, colors, ...) { colors <- seq_len(max(as.vector(mat))) colors <- colors[as.vector(mat)] colors <- matrix(colors, NROW(mat)) - colors <- t(colors[,NCOL(colors):1]) - imageGrob(colors, xlim=x$par.x.range, ylim=x$par.y.range, respect = FALSE, name='image') + imageGrob(t(colors), xlim=x$par.x.range, ylim=x$par.y.range, respect = FALSE, name='image') } plot.idmc_lexp_map <- function(x, y, colors, labels, -- 2.11.4.GIT