R/set_def_model_start_values.R

In sciarraseb/nonlinSims: Generates longitudinal data sets according to a logistic pattern.

#' Analyzes data with nonlinear latent growth curve model.
#'
#' Data are modelled with a structured latent growth curve model.
#' @md
#' @param data_wide wide version of data 
#' @param model_name name of model 
#' @export
set_def_model_start_values <- function(model_def, model_no_def) {
  
  #set starting values for definition model
  model_def$t$values <- model_no_def$t$values #theta_fixed
  model_def$a$values <- model_no_def$a$values #alpha_fixed
  model_def$b$values <- model_no_def$b$values #beta_fixed
  model_def$g$values <- model_no_def$g$values #gamma_fixed
  
  model_def$S$values <-  model_no_def$S$values #S matrix
  model_def$M$values <- model_no_def$M$values #M matrix
  
  return(model_def)
  
}