remove jackknife

Author: juliuspfadt

R/plssem.R

@@ -159,7 +159,7 @@ checkCSemModel <- function(model, availableVars) {
     modelContainer$dependOn(c("syntax", "convergenceCriterion",
                               "estimateStructural", "group", "consistentPartialLeastSquares",
                               "structuralModelIgnored", "innerWeightingScheme", "errorCalculationMethod",
-                              "robustMethod", "bootstrapSamples", "ciLevel",
+                              "bootstrapSamples", "ciLevel",
                               "setSeed", "seed", "handlingOfInadmissibles", "endogenousIndicatorPrediction",
                               "kFolds", "repetitions", "benchmark", "predictedScore", "models"))
     jaspResults[["modelContainer"]] <- modelContainer
@@ -220,14 +220,10 @@ checkCSemModel <- function(model, availableVars) {
       break
     }
 
-    # resample if robust/ bootstrap
-    if (options[["errorCalculationMethod"]] == "robust") {
+    # resample if bootstrap
+    if (options[["errorCalculationMethod"]] == "bootstrap") {
 
-      if(options[["robustMethod"]] == "bootstrap") {
-        startProgressbar(options[["bootstrapSamples"]], "Resampling")
-      } else {
-        startProgressbar(nrow(dataset), "Resampling")
-      }
+      startProgressbar(options[["bootstrapSamples"]], "Resampling")
 
       # argument .user_funs in cSEM::resamplecSEMResults only accepts a function with .object as input and a vector as output; c(0,0) does not have any other function
       tickFunction <- function(.object)
@@ -239,7 +235,7 @@ checkCSemModel <- function(model, availableVars) {
       fit <- try(cSEM::resamplecSEMResults(.object = fit,
                                            .R = options[["bootstrapSamples"]],
                                            .user_funs = tickFunction,
-                                           .resample_method = options[["robustMethod"]],
+                                           .resample_method = "bootstrap",
                                            .handle_inadmissibles = options[["handlingOfInadmissibles"]],
                                            .sign_change_option = "none",
                                            .seed = if (options[["setSeed"]]) options[["seed"]]))

inst/qml/PLSSEM.qml

@@ -113,15 +113,7 @@ Form
 				name: "errorCalculationMethod"
 				id: errorCalcMethod
 				RadioButton { value: "none";		label: qsTr("None"); checked: true	}
-				RadioButton
-				{
-					value: "robust";
-					label: qsTr("Robust")
-					RadioButtonGroup
-					{
-						title: ""
-						name: "robustMethod"
-						RadioButton {
+				RadioButton {
 							value: "bootstrap";	label: qsTr("Bootstrap"); checked: true
 							IntegerField
 							{
@@ -132,16 +124,14 @@ Form
 								min: 1
 								// enabled: errorCalcMethod.value == "robust"
 							}
+							CIField
+							{
+								text: qsTr("Confidence intervals")
+								name: "ciLevel"
+								enabled: errorCalcMethod.value == "bootstrap"
+							}
 						}
-						RadioButton { value: "jackknife";	label: qsTr("Jackknife") }
-					}
-
-					CIField
-					{
-						text: qsTr("Confidence intervals")
-						name: "ciLevel"
-						enabled: errorCalcMethod.value == "robust"
-					}
+
 				}
 			}
 			RadioButtonGroup

tests/testthat/test-plssem.R

@@ -368,8 +368,7 @@ test_that("1 table results match", {
   options$convergenceCriterion      <- "absoluteDifference"
   options$setSeed                   <- TRUE
   options$seed                      <- 123
-  options$errorCalculationMethod    <- "robust"
-  options$robustMethod              <- "bootstrap"
+  options$errorCalculationMethod    <- "bootstrap"
   options$bootstrapSamples          <- 200
   options$handlingOfInadmissibles   <- "ignore"
 
@@ -603,8 +602,7 @@ options$innerWeightingScheme      <- "path"
 options$convergenceCriterion      <- "absoluteDifference"
 options$setSeed                   <- TRUE
 options$seed                      <- 123
-options$errorCalculationMethod    <- "robust"
-options$robustMethod              <- "bootstrap"
+options$errorCalculationMethod    <- "bootstrap"
 options$bootstrapSamples          <- 200
 options$handlingOfInadmissibles   <- "ignore"
 options$handlingOfFlippedSigns    <- "none"