add seed stuff

jasp-stats · Nov 25, 2024 · ae2a1f2 · ae2a1f2
1 parent dfd60df
commit ae2a1f2
Show file tree

Hide file tree

Showing 4 changed files with 968 additions and 427 deletions.
diff --git a/R/exploratoryfactoranalysis.R b/R/exploratoryfactoranalysis.R
@@ -192,15 +192,17 @@ exploratoryFactorAnalysisInternal <- function(jaspResults, dataset, options, ...
 
   if (options[["analysisBasedOn"]] == "polyTetrachoricCorrelationMatrix") {
     polyTetraCor <- psych::mixedCor(dataset)
-    set.seed(options[["parallelAnalysisSeed"]])
+    .setSeedJASP(options)
+
     parallelResult <- try(psych::fa.parallel(polyTetraCor$rho,
                                  plot = FALSE,
                                  fa = ifelse(options[["parallelAnalysisMethod"]] == "principalComponentBased",
                                              "pc", "fa"),
                                  n.obs = nrow(dataset)))
   }
   else {
-    set.seed(options[["parallelAnalysisSeed"]])
+    .setSeedJASP(options)
+
     parallelResult <- try(psych::fa.parallel(dataset, plot = FALSE,
                                              fa = ifelse(options[["parallelAnalysisMethod"]] == "principalComponentBased",
                                                          "pc", "fa")))
@@ -600,14 +602,16 @@ exploratoryFactorAnalysisInternal <- function(jaspResults, dataset, options, ...
 
   if (options[["analysisBasedOn"]] == "polyTetrachoricCorrelationMatrix") {
     polyTetraCor <- psych::mixedCor(dataset)
-    set.seed(options[["parallelAnalysisSeed"]])
+    .setSeedJASP(options)
+
     parallelResult <- try(psych::fa.parallel(polyTetraCor$rho,
                                              plot = FALSE,
                                              fa = ifelse(options[["parallelAnalysisTableMethod"]] == "principalComponentBased",
                                                          "pc", "fa"),
                                              n.obs = nrow(dataset)))
   } else {
-    set.seed(options[["parallelAnalysisSeed"]])
+    .setSeedJASP(options)
+
     parallelResult <- try(psych::fa.parallel(dataset, plot = FALSE,
                                              fa = ifelse(options[["parallelAnalysisTableMethod"]] == "principalComponentBased",
                                                          "pc", "fa")))
@@ -628,7 +632,7 @@ exploratoryFactorAnalysisInternal <- function(jaspResults, dataset, options, ...
   }
 
   parallelTable <- createJaspTable(gettext("Parallel Analysis"))
-  parallelTable$dependOn(c("parallelAnalysisTable", "parallelAnalysisTableMethod", "parallelAnalysisSeed"))
+  parallelTable$dependOn(c("parallelAnalysisTable", "parallelAnalysisTableMethod"))
   parallelTable$addColumnInfo(name = "col", title = "", type = "string")
 
   parallelTable$addColumnInfo(name = "val1", title = eigTitle, type = "number", format = "dp:3")
@@ -679,14 +683,16 @@ exploratoryFactorAnalysisInternal <- function(jaspResults, dataset, options, ...
 
     if (options[["analysisBasedOn"]] == "polyTetrachoricCorrelationMatrix") {
       polyTetraCor <- psych::mixedCor(dataset)
-      set.seed(options[["parallelAnalysisSeed"]])
+      .setSeedJASP(options)
+
       parallelResult <- try(psych::fa.parallel(polyTetraCor$rho,
                                    plot = FALSE,
                                    fa = ifelse(options[["parallelAnalysisTableMethod"]] == "principalComponentBased",
                                                "pc", "fa"),
                                    n.obs = nrow(dataset)))
     } else {
-      set.seed(options[["parallelAnalysisSeed"]])
+      .setSeedJASP(options)
+
       parallelResult <- try(psych::fa.parallel(dataset, plot = FALSE,
                                                fa = ifelse(options[["parallelAnalysisTableMethod"]] == "principalComponentBased",
                                                            "pc", "fa")))

diff --git a/inst/qml/ExploratoryFactorAnalysis.qml b/inst/qml/ExploratoryFactorAnalysis.qml
@@ -81,15 +81,9 @@ Form
 						label: qsTr("Based on FA")
 					}
 				}
-				IntegerField
-				{
-					name: 			"parallelAnalysisSeed"
-					label: 			"Seed"
-					defaultValue: 	1234
-					fieldWidth: 	60
-					min: 			1
-					max: 			1e6
-				}
+
+				SetSeed{}
+
 			}
 
 			RadioButton

diff --git a/inst/qml/PrincipalComponentAnalysis.qml b/inst/qml/PrincipalComponentAnalysis.qml
@@ -78,15 +78,8 @@ Form
 					label: qsTr("Based on factors")
 				}
 			}
-			IntegerField
-			{
-				name: 			"parallelAnalysisSeed"
-				label: 			"Seed"
-				defaultValue: 	1234
-				fieldWidth: 	60
-				min: 			1
-				max: 			1e6
-			}
+			SetSeed{}
+
 		}
 		RadioButton
 		{