styling

LCBC-UiO · Oct 11, 2023 · d4e2ab5 · d4e2ab5
1 parent b0c6d25
commit d4e2ab5
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/R/galamm.R b/R/galamm.R
@@ -393,9 +393,9 @@ galamm <- function(formula, weights = NULL, data, family = gaussian,
     } else {
       gobj$lmod$reTrms$Zt@x <-
         as.numeric(Map(function(l, x) sum(pars[l + 2L] * x),
-                       l = lambda_mappings$lambda_mapping_Zt,
-                       x = lambda_mappings$lambda_mapping_Zt_covs
-                       ))
+          l = lambda_mappings$lambda_mapping_Zt,
+          x = lambda_mappings$lambda_mapping_Zt_covs
+        ))
     }
   }
 

diff --git a/dev-scripts/sanitize.R b/dev-scripts/sanitize.R
@@ -141,4 +141,4 @@ gr <- function(par, gradient, hessian = FALSE) {
 par_init <-
   set_initial_values(gobj, start, beta_inds, lambda_inds, weights_inds)
 
-fn(par_init, F)
+fn(par_init, T)
diff --git a/tests/testthat/test-galamm-semiparametric.R b/tests/testthat/test-galamm-semiparametric.R
@@ -344,7 +344,8 @@ test_that("GAMM with factor structures and random effects works", {
 test_that("galamm with by variables and loadings works", {
   dat <- subset(
     cognition,
-    domain %in% c(1, 3) & item %in% c("11", "12", "31", "32"))
+    domain %in% c(1, 3) & item %in% c("11", "12", "31", "32")
+  )
   dat <- cbind(
     dat,
     model.matrix(~ 0 + domain, data = dat)[, c("domain1", "domain3")]