first skeleton for specification search

NAMESPACE

@@ -55,6 +55,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

@@ -1,3 +1,23 @@
+#' Specification search 
+#' 
+#' \lifecycle{experimental}
+#'
+#' The `doSpecificationSearch()` 
+#' 
+#' @usage doSpecificationSearch(
+#' .object = NULL) 
+#'
+#' @inheritParams csem_arguments
+#' 
+#' 
+#' @return List
+#' 
+#' @seealso [csem()], [cSEMResults], \link[DiagrammeR]{grViz}
+#' 
+#' 
+#' @export
+
+
 doSpecificationSearch <- function(.object = NULL){