# Specify bivariate LCSM
lavaan_bi_lcsm_01 <- specify_bi_lcsm(timepoints = 10,
var_x = "x",
model_x = list(alpha_constant = TRUE,
beta = TRUE,
phi = TRUE),
var_y = "y",
model_y = list(alpha_constant = TRUE,
beta = TRUE,
phi = TRUE),
coupling = list(delta_lag_xy = TRUE,
delta_lag_yx = TRUE),
change_letter_x = "g",
change_letter_y = "j")
# To look at string simply return the object
lavaan_bi_lcsm_01
# To get a readable output use cat() function
cat(lavaan_bi_lcsm_01)
Run the code above in your browser using DataLab