Add moderated moderation model numbers

jasp-stats · Aug 28, 2023 · 92237d9 · 92237d9
1 parent f48c92f
commit 92237d9
Showing 1 changed file with 62 additions and 0 deletions.
diff --git a/R/HardCodedModels.R b/R/HardCodedModels.R
@@ -48,6 +48,23 @@
     )
   }
 
+  if (number == 3) {
+    processRelationships <- list(
+      list(
+        processDependent = "Y",
+        processIndependent = "X",
+        processType = "moderators",
+        processVariable = "W"
+      ),
+      list(
+        processDependent = "Y",
+        processIndependent = "W",
+        processType = "moderators",
+        processVariable = "Z"
+      )
+    )
+  }
+
   if (number == 4) {
     processRelationships <- list(
       list(
@@ -197,6 +214,28 @@
     )
   }
 
+  if (number == 11) {
+    processRelationships <- list(
+      list(
+        processDependent = "Y",
+        processIndependent = "X",
+        processType = "mediators",
+        processVariable = "M"
+      ),
+      list(
+        processDependent = "M",
+        processIndependent = "X",
+        processType = "moderators",
+        processVariable = "W"
+      ),
+      list(
+        processDependent = "M",
+        processIndependent = "W",
+        processType = "moderators",
+        processVariable = "Z"
+      )
+    )
+  }
 
   if (number == 14) {
     processRelationships <- list(
@@ -296,6 +335,29 @@
     )
   }
 
+  if (number == 18) {
+    processRelationships <- list(
+      list(
+        processDependent = "Y",
+        processIndependent = "X",
+        processType = "mediators",
+        processVariable = "M"
+      ),
+      list(
+        processDependent = "Y",
+        processIndependent = "M",
+        processType = "moderators",
+        processVariable = "W"
+      ),
+      list(
+        processDependent = "Y",
+        processIndependent = "W",
+        processType = "moderators",
+        processVariable = "Z"
+      )
+    )
+  }
+
   if (number == 21) {
     processRelationships <- list(
       list(