From 3903fe3c8dffc460fcfb014f347375279412ab3a Mon Sep 17 00:00:00 2001
From: Ben Klein <benhunter1990@gmail.com>
Date: Wed, 26 Aug 2015 16:34:18 -0400
Subject: [PATCH] fix errorbar range limits

---
 share/openbr/plotting/plot_utils.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/share/openbr/plotting/plot_utils.R b/share/openbr/plotting/plot_utils.R
index 73b1e44..ea24174 100644
--- a/share/openbr/plotting/plot_utils.R
+++ b/share/openbr/plotting/plot_utils.R
@@ -240,8 +240,8 @@ summarySE <- function(data=NULL, measurevar, groupvars=NULL, na.rm=FALSE, conf.i
 	ciMult <- qt(conf.interval/2 + .5, datac$N-1)
 	datac$ci <- datac$se * ciMult
 
-	datac$upper <- if(datac[, measurevar] + datac$ci < 1) (datac[, measurevar] + datac$ci) else 1
-	datac$lower <- if(datac[, measurevar] - datac$ci > 0) (datac[, measurevar] - datac$ci) else 0
+	datac$upper <- ifelse(datac[,measurevar] + datac$ci < 1, datac[,measurevar] + datac$ci, 1)
+	datac$lower <- ifelse(datac[,measurevar] - datac$ci > 0, datac[,measurevar] - datac$ci, 0)
 
 	return(datac)
 }
--
libgit2 0.21.4