final fix to data

LCBC-UiO · Apr 5, 2024 · 1a14d4b · 1a14d4b
1 parent 9aff4a8
commit 1a14d4b
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/data-raw/lifespan.R b/data-raw/lifespan.R
@@ -86,7 +86,7 @@ lifespan <- tibble(
     eta = case_when(
       domain == "epmem" ~ epmem_fun(age),
       domain == "wmem" ~ wmem_fun(age),
-      domain == "execfun" ~ -execfun_fun(age),
+      domain == "execfun" ~ execfun_fun(age),
       TRUE ~ NA_real_
     ) + zeta2 + zeta3,
     test = case_when(
@@ -105,7 +105,10 @@ lifespan <- tibble(
     ),
     item_bias = item_bias[test],
     lambda = loadings[test],
-    nu = retest_effect + item_bias - eta * lambda
+    nu = case_when(
+      domain == "execfun" ~ retest_effect + item_bias - eta * lambda,
+      TRUE ~ retest_effect + item_bias + eta * lambda
+    )
   ) %>%
   select(-zeta2, -zeta3, -eta, -retest_effect, -item_bias, -lambda) %>%
   rowwise() %>%

diff --git a/data/lifespan.rda b/data/lifespan.rda
diff --git a/src/RcppExports-c3165af9.o.tmp b/src/RcppExports-c3165af9.o.tmp