fixe error

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,