fix errorbar range limits

Ben Klein
1 parent 604548eb
Showing 1 changed file with 2 additions and 2 deletions
share/openbr/plotting/plot_utils.R
@@ -240,8 +240,8 @@ summarySE &lt;- 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)
 }