cran prep

kkholst · Jan 6, 2025 · 6a0790d · 6a0790d
1 parent d3e2887
commit 6a0790d
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 10 deletions.
diff --git a/R/lava-package.R b/R/lava-package.R
@@ -251,7 +251,7 @@ NULL
 ##' starter.multigroup
 ##' addattr modelPar modelVar matrices pars pars.lvm
 ##' pars.lvmfit pars.glm score.glm procdata.lvmfit modelPar modelVar
-##' matrices reorderdata graph2lvm igraph.lvm subgraph finalize
+##' mat.lvm matrices reorderdata graph2lvm igraph.lvm subgraph finalize
 ##' index.lvm index.lvmfit index reindex index<-
 ##' rmvn0 dmvn0 logit expit tigol
 ##' randomslope randomslope<- lisrel variances offdiags describecoef

diff --git a/man/internal.Rd b/man/internal.Rd
diff --git a/man/ksmooth2.Rd b/man/ksmooth2.Rd
diff --git a/tests/testthat/test-influence.R b/tests/testthat/test-influence.R
@@ -22,23 +22,23 @@ test_that("merge, IC, estimate with 'id' argument", {
 
   l <- glm(y ~ x, data=d)
   e1 <- estimate(l, id=d$id1)
-  e <- merge(estimate(l), estimate(l), id=list(d$id, d$id1))
-  V0 <- vcov(e)
-  V1 <- vcov(estimate(e1, id=c(1,2,2,3,4)))
+  V1 <- vcov(e1)
+  e0 <- estimate(e1, id=c(1,2,2,3,4))
+  V0 <- vcov(e0)
 
   if (requireNamespace("geepack",quietly=TRUE)) {
     V <- summary(geepack::geeglm(y ~ x, id=d$id0, data=d))$cov.scaled
     testthat::expect_true(sum((V - V0)^2) < 1e-12)
-    testthat::expect_true(sum((V - V1)^2) < 1e-12)
   }
 
-  testthat::expect_true(sum((vcov(e1) - vcov(e)[3:4,3:4])^2) < 1e-12)
-  testthat::expect_true(sum((V1 - vcov(e)[1:2,1:2])^2) < 1e-12)
+  e <- merge(estimate(l), estimate(l), id=list(d$id, d$id1))
+  testthat::expect_true(sum((V1 - vcov(e)[3:4,3:4])^2) < 1e-12)
+  testthat::expect_true(sum((V0 - vcov(e)[1:2,1:2])^2) < 1e-12)
 
   ee <- estimate(e, id=c(1,2,3,4,2,2))
   VV <- vcov(ee)
-  testthat::expect_true(sum((VV[1:2,1:2] - V)^2) < 1e-12)
-  testthat::expect_true(sum((VV[3:4,3:4] - V)^2) < 1e-12)
+  testthat::expect_true(sum((VV[1:2,1:2] - V0)^2) < 1e-12)
+  testthat::expect_true(sum((VV[3:4,3:4] - V0)^2) < 1e-12)
 })
 
 test_that("negative binomial regression (glm.nb)", {