Clean up

haziqj · May 30, 2024 · e978b33 · e978b33
1 parent 63a4291
commit e978b33
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 11 deletions.
diff --git a/R/30-inlavaan.R b/R/30-inlavaan.R
@@ -22,7 +22,7 @@ inlavaan <- function(
     # FOR MY DEBUGGING
     stop_at_jagtrans = FALSE,
 
-    bcontrol = list()) {
+    bcontrol = list(num.threads = 6)) {
 
   # To play nice with blavaan code
   cp                 = "srs"

diff --git a/R/40-lav_export_INLA.R b/R/40-lav_export_INLA.R
@@ -1430,7 +1430,7 @@ coeffun_inla <- function(
   } else {
     psi_tab <-
       lapply(res$internal.marginals.hyperpar[c(idx_psi)], \(m) {
-        INLA::inla.tmarginal(function(x) exp(x), m) |>
+        INLA::inla.tmarginal(exp, m) |>
           INLA::inla.zmarginal(silent = TRUE) |>
           as.data.frame()
       }) |>
@@ -1501,7 +1501,7 @@ coeffun_inla <- function(
   } else {
     theta_tab <-
       lapply(res$internal.marginals.hyperpar[c(idx_theta)], \(m) {
-        INLA::inla.tmarginal(function(x) exp(x), m) |>
+        INLA::inla.tmarginal(exp, m) |>
           INLA::inla.zmarginal(silent = TRUE) |>
           as.data.frame()
       }) |>

diff --git a/inst/demo.R b/inst/demo.R
@@ -52,18 +52,12 @@ myModel <- '
 
 fit <- isem(
   model = myModel,
-  data = scale(PoliticalDemocracy, center = FALSE, scale = FALSE),
-  meanstructure = TRUE,
-  # stop_at_jagtrans = TRUE,
+  data = PoliticalDemocracy,
+  # meanstructure = TRUE,
   verbose = TRUE
 )
 
-tmp <- fit
-tmp$the_model$f$rgeneric$definition("Q")
 
-with(tmp$the_model$f$rgeneric$definition("Q", .debug = TRUE), {
-  solve(Lambda %*% IminB %*% Psi %*% t(IminB) %*% t(Lambda) + Theta)
-})