skeleton for specification search

NAMESPACE

@@ -52,6 +52,7 @@ export(csem)
 export(doIPMA)
 export(doNonlinearEffectsAnalysis)
 export(doRedundancyAnalysis)
+export(doSpecificationSearch)
 export(exportToExcel)
 export(fit)
 export(getConstructScores)

R/helper_doSpecificationSearch.R

@@ -0,0 +1,21 @@
+#' Internal: perform GA
+#'
+#' Transforms a p-value into stars. 
+#' 
+#' 
+#' @usage get_significance_stars(
+#' X
+#' )
+#' 
+#' @inheritParams csem_arguments
+#' 
+#' @return Character string. A p-value transformed into a star.
+#' 
+#' @keywords internal
+#' 
+ga = function(
+    X
+){
+
+  X
+}

R/postestimate_doSpecificationSearch.R

@@ -0,0 +1,37 @@
+#' Specification search 
+#' 
+#' \lifecycle{experimental}
+#'
+#' The `doSpecificationSearch()` 
+#' 
+#' @usage doSpecificationSearch(
+#' .object = NULL) 
+#'
+#' @inheritParams csem_arguments
+#' 
+#' 
+#' @return List
+#' 
+#' @seealso [csem()], [cSEMResults], \link[DiagrammeR]{grViz}
+#' 
+#' 
+#' @example inst/examples/example_doSpecificationSearch.R
+#' 
+#' @export
+
+
+doSpecificationSearch <- function(.object = NULL){
+
+  out=list()
+
+
+
+  out[["Estimates"]]=.object$Estimates
+  out[[2]]=.object$Information$Model
+  out[[3]]=.object$Information$Data
+  out[[4]]=.object$Information$Arguments$.data
+
+  # ga(X)
+
+  out
+  }

cSEM.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: e9c4f34e-2293-4e27-9cf3-b2f55153a1dd
 
 RestoreWorkspace: Default
 SaveWorkspace: Default

inst/examples/example_doSpecificationSearch.R

@@ -0,0 +1,22 @@
+model_IT_Flex="
+# Composite models
+ITComp  <~ ITCOMP1 + ITCOMP2 + ITCOMP3 + ITCOMP4
+Modul   <~ MOD1 + MOD2 + MOD3 + MOD4
+ITConn  <~ ITCONN1 + ITCONN2 + ITCONN3 + ITCONN4
+ITPers  <~ ITPSF1 + ITPSF2 + ITPSF3 + ITPSF4
+
+# Saturated structural model
+ITPers ~ ITComp + Modul + ITConn
+Modul  ~ ITComp + ITConn 
+ITConn ~ ITComp 
+"
+
+# Estimate the model using PLS:
+out <- csem(.data = ITFlex, 
+            .model = model_IT_Flex,
+            .resample_method = "none")
+
+
+doSpecificationSearch(out)
+
+