simplify name of specify lavaan code functions

milanwiedemann · Aug 5, 2019 · ccd3e72 · ccd3e72
1 parent 4514459
commit ccd3e72
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -10,8 +10,8 @@ export(plot_trajectories)
 export(rename_lcsm_vars)
 export(select_bi_cases)
 export(select_uni_cases)
-export(sim_bi_lcsm_data)
-export(sim_uni_lcsm_data)
-export(specify_lavaan_bi_model)
-export(specify_lavaan_uni_model)
+export(sim_bi_lcsm)
+export(sim_uni_lcsm)
+export(specify_bi_lcsm)
+export(specify_uni_lcsm)
 importFrom(magrittr,"%>%")
diff --git a/R/fit_lcsm.R b/R/fit_lcsm.R
@@ -43,7 +43,7 @@ fit_uni_lcsm <- function(data,
                                 )  
 
   # Specify model ----
-  model_uni <- specify_lavaan_uni_model(timepoints = timepoints,
+  model_uni <- specify_uni_lcsm(timepoints = timepoints,
                                         var = "x",
                                         model = model,
                                         change_letter = "g"
@@ -150,7 +150,7 @@ fit_bi_lcsm <- function(data,
                                 var_y = var_y)
 
   # Specify model ----
-  model_bi <- specify_lavaan_bi_model(timepoints = timepoints,
+  model_bi <- specify_bi_lcsm(timepoints = timepoints,
                                       var_x = "x",
                                       model_x = model_x,
                                       var_y = "y",

diff --git a/R/specify_lcsm_lavaan_syntax.R b/R/specify_lcsm_lavaan_syntax.R
@@ -17,7 +17,7 @@
 #' @export 
 #' @examples
 
-specify_lavaan_uni_model <- function(timepoints, model, var, change_letter) {
+specify_uni_lcsm <- function(timepoints, model, var, change_letter) {
 
   # Code parameters in model that are not defined as FALSE
 
@@ -198,7 +198,7 @@ specify_lavaan_uni_model <- function(timepoints, model, var, change_letter) {
 #' @export 
 #' @examples
 #' 
-specify_lavaan_bi_model <- function(timepoints,
+specify_bi_lcsm <- function(timepoints,
                                     var_x,
                                     model_x,
                                     var_y,
@@ -305,13 +305,13 @@ specify_lavaan_bi_model <- function(timepoints,
 
 
   model_x_uni_lavaan <- "# Specify parameters for construct x ----\n"
-  model_x_uni_lavaan <- paste0(model_x_uni_lavaan, specify_lavaan_uni_model(timepoints = timepoints, 
+  model_x_uni_lavaan <- paste0(model_x_uni_lavaan, specify_uni_lcsm(timepoints = timepoints, 
                                                                             model = model_x, 
                                                                             var = var_x, 
                                                                             change_letter = change_letter_x))
 
   model_y_uni_lavaan <- "# Specify parameters for construct y ----\n"
-  model_y_uni_lavaan <- paste0(model_y_uni_lavaan, specify_lavaan_uni_model(timepoints = timepoints, 
+  model_y_uni_lavaan <- paste0(model_y_uni_lavaan, specify_uni_lcsm(timepoints = timepoints, 
                                                                             model = model_y, 
                                                                             var = var_y, 
                                                                             change_letter = change_letter_y))