diff --git a/R/analysis/lmer.output.figs.R b/R/analysis/lmer.output.figs.R index 135d0154bb0bf828415c08f8f9f4d9698ca1a348..e91f92444791380d9d2986421c7ae6bab72bf2ab 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,