From f9c11a19fdf180debc302570bcd993757de73b0f Mon Sep 17 00:00:00 2001
From: Georges Kunstler <Georges.Kunstler@gmail.com>
Date: Tue, 12 Nov 2013 16:45:45 +1100
Subject: [PATCH] fixe error
---
R/analysis/lmer.output.figs.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/analysis/lmer.output.figs.R b/R/analysis/lmer.output.figs.R
index 135d015..e91f924 100644
--- a/R/analysis/lmer.output.figs.R
+++ b/R/analysis/lmer.output.figs.R
@@ -99,12 +99,12 @@ diff.R2c.simple.compet <- NA
if(sum(select.no.compet)==1){
diff.R2m.no.compet <- DF.results$R2m[i] - DF.results$R2m[select.no.compet]
diff.R2c.no.compet <- DF.results$R2c[i] - DF.results$R2c[select.no.compet]
+if (!all.equal(DF.results$nobs[i], DF.results$nobs[select.no.compet]))
+ stop('no same number of observation')
}else{
diff.R2m.no.compet <- NA
diff.R2c.no.compet <- NA
}
-if (!all.equal(DF.results$nobs[i], DF.results$nobs[select.no.compet]))
- stop('no same number of observation')
return(data.frame(diff.R2m.simple.compet =diff.R2m.simple.compet,
diff.R2c.simple.compet =diff.R2c.simple.compet,
diff.R2m.no.compet =diff.R2m.no.compet,
--
GitLab