[Lme4-commits] r1777 - pkg/lme4/R

[noreply at r-forge.r-project.org]

Author: mmaechler
Date: 2012-06-25 09:43:40 +0200 (Mon, 25 Jun 2012)
New Revision: 1777

Modified:
   pkg/lme4/R/lmer.R
Log:
typo (in last rev)


Modified: pkg/lme4/R/lmer.R
===================================================================
--- pkg/lme4/R/lmer.R	2012-06-25 07:35:58 UTC (rev 1776)
+++ pkg/lme4/R/lmer.R	2012-06-25 07:43:40 UTC (rev 1777)
@@ -1722,7 +1722,7 @@
     dimnames(rr) <- list(nmsX, nmsX)
     if(correlation)
 	rr at factors$correlation <-
-	    if(is.na(sigma)) as(rr, "corMatrix") else rr # (is NA anyway)
+	    if(!is.na(sigma)) as(rr, "corMatrix") else rr # (is NA anyway)
     rr
 }