Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(lcsm)
## -----------------------------------------------------------------------------
uni_lcsm_syntax <- specify_uni_lcsm(timepoints = 5,
var = "x",
change_letter = "g",
model = list(alpha_constant = TRUE,
beta = TRUE,
phi = TRUE))
## -----------------------------------------------------------------------------
# To get a readable output use cat() function
cat(uni_lcsm_syntax)
## -----------------------------------------------------------------------------
uni_lcsm_syntax_add <- specify_uni_lcsm(timepoints = 3,
var = "x",
change_letter = "g",
add = "# JUST ANOTHER COMMENT",
model = list(alpha_constant = TRUE,
beta = TRUE,
phi = TRUE))
## -----------------------------------------------------------------------------
# To get a readable output use cat() function
cat(uni_lcsm_syntax_add)
## -----------------------------------------------------------------------------
# Specify bivariate LCSM
lavaan_bi_lcsm_delta_01 <- specify_bi_lcsm(timepoints = 5,
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 get a readable output use cat() function
cat(lavaan_bi_lcsm_delta_01)
## -----------------------------------------------------------------------------
# Specify bivariate LCSM
lavaan_bi_lcsm_xi_01 <- specify_bi_lcsm(timepoints = 5,
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(xi_lag_xy = TRUE,
xi_lag_yx = TRUE),
change_letter_x = "g",
change_letter_y = "j")
## -----------------------------------------------------------------------------
# To get a readable output use cat() function
cat(lavaan_bi_lcsm_xi_01)
## -----------------------------------------------------------------------------
# Specify bivariate LCSM
lavaan_bi_lcsm_xi_add <- specify_bi_lcsm(timepoints = 3,
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(xi_lag_xy = TRUE,
xi_lag_yx = TRUE),
add = "age ~~ age_j2 * j2",
change_letter_x = "g",
change_letter_y = "j")
## -----------------------------------------------------------------------------
# To get a readable output use cat() function
cat(lavaan_bi_lcsm_xi_add)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.