[Lme4-commits] r1728 - pkg/lme4/inst/tests

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

Author: dmbates
Date: 2012-05-15 19:14:45 +0200 (Tue, 15 May 2012)
New Revision: 1728

Modified:
   pkg/lme4/inst/tests/test-glmFamily.R
   pkg/lme4/inst/tests/test-lmer.R
   pkg/lme4/inst/tests/test-lmerResp.R
Log:
Attach the lme4 package and get data from it.  Not sure if this is necessary but it can't hurt.


Modified: pkg/lme4/inst/tests/test-glmFamily.R
===================================================================
--- pkg/lme4/inst/tests/test-glmFamily.R	2012-05-15 17:13:20 UTC (rev 1727)
+++ pkg/lme4/inst/tests/test-glmFamily.R	2012-05-15 17:14:45 UTC (rev 1728)
@@ -1,4 +1,6 @@
 library("testthat")
+library("lme4")
+
 eps <- .Machine$double.eps
 oneMeps <- 1 - eps
 set.seed(1)
@@ -121,7 +123,3 @@
     expect_that(bfam$theta(), throws_error("theta accessor applies only to negative binomial"))
     expect_that(bfam$setTheta(2), throws_error("setTheta applies only to negative binomial"))    
 })
-
-
-    
-

Modified: pkg/lme4/inst/tests/test-lmer.R
===================================================================
--- pkg/lme4/inst/tests/test-lmer.R	2012-05-15 17:13:20 UTC (rev 1727)
+++ pkg/lme4/inst/tests/test-lmer.R	2012-05-15 17:14:45 UTC (rev 1728)
@@ -1,4 +1,5 @@
 library("testthat")
+library("lme4")
 
 context("fitting lmer models")
 test_that("lmer", {

Modified: pkg/lme4/inst/tests/test-lmerResp.R
===================================================================
--- pkg/lme4/inst/tests/test-lmerResp.R	2012-05-15 17:13:20 UTC (rev 1727)
+++ pkg/lme4/inst/tests/test-lmerResp.R	2012-05-15 17:14:45 UTC (rev 1728)
@@ -1,5 +1,6 @@
 library("testthat")
 
+data(Dyestuff, package="lme4")
 n     <- nrow(Dyestuff)
 ones  <- rep.int(1, n)
 zeros <- rep.int(0, n)