[Lme4-commits] r1658 - pkg/lme4Eigen/tests

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

Author: bbolker
Date: 2012-03-15 21:02:58 +0100 (Thu, 15 Mar 2012)
New Revision: 1658

Modified:
   pkg/lme4Eigen/tests/profile.R
Log:

  testing tweaks



Modified: pkg/lme4Eigen/tests/profile.R
===================================================================
--- pkg/lme4Eigen/tests/profile.R	2012-03-15 20:00:54 UTC (rev 1657)
+++ pkg/lme4Eigen/tests/profile.R	2012-03-15 20:02:58 UTC (rev 1658)
@@ -16,7 +16,7 @@
 
 ## 2D profiles
 fm2ML <- lmer(diameter ~ 1 + (1|plate) + (1|sample), Penicillin, REML=0)
-pr2 <- profile(fm2ML)
+system.time(pr2 <- profile(fm2ML))
 (confint(pr2) -> CIpr2)
 
 lme4a_CIpr2 <-
@@ -31,9 +31,11 @@
 print(xyplot(pr2, absVal=0, aspect=1.3, layout=c(4,1)))
 print(splom(pr2))
 
-## NOT RUN: takes ~ 30 seconds on my machine ...
+## NOT RUN:  ~ 23 seconds
 fm3ML <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy, REML=FALSE)
-## system.time(pr3 <- profile(fm3ML))
-## xyplot(pr3)
-## print(splom(pr3))
+if (FALSE) {
+  system.time(pr3 <- profile(fm3ML))
+  xyplot(pr3)
+  print(splom(pr3))
+}