dat

DominiqueMakowski · Dec 15, 2024 · b6782b5 · b6782b5
1 parent ec68b75
commit b6782b5
Show file tree

Hide file tree

Showing 3 changed files with 1,617 additions and 1,617 deletions.
diff --git a/BayesianStatistics/2025/data/make_TAP.R b/BayesianStatistics/2025/data/make_TAP.R
@@ -36,15 +36,15 @@ df <-  filter(df, Gender %in% c("Female", "Male"))
 
 
 df |>
-  dplyr::select(Age, Gender, Anxiety=STAI5_General) |>
+  dplyr::select(Age, Gender, Anxiety=STAI5_General, Interoception, MoodDisorder) |>
   write.csv("tap2.csv", row.names=FALSE)
 
 
-# lm(BDI2_Total ~ Interoception * Gender, data = df) |>
+# lm(BDI2_Total ~ Interoception * MoodDisorder, data = df) |>
 #   parameters::parameters()
 #
 # plot(estimate_relation(m))
 
 df |>
-  dplyr::select(Interoception, Gender, Depression=BDI2_Total) |>
+  dplyr::select(Interoception, Gender, Depression=BDI2_Total, Interoception, MoodDisorder) |>
   write.csv("tap2_resit.csv", row.names=FALSE)