last commit Flo

R/postestimate_doSpecificationSearch.R

@@ -15,16 +15,23 @@
 #' @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
 
-  .object$Estimates
-  .object$Information$Model
-  .object$Information$Data
-  .object$Information$Arguments$.data
-}
+  # ga(X)
+
+  out
+  }

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)
+
+