Nothing
## ----include = FALSE----------------------------------------------------------
EVAL_DEFAULT <- FALSE
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
eval = EVAL_DEFAULT
)
## ----setup--------------------------------------------------------------------
# library(modsem)
## ----eval = FALSE-------------------------------------------------------------
#
# m1 <- '
# # Outer Model
# X =~ x1 + x2 + x3
# Y =~ y1 + y2 + y3
# Z =~ z1 + z2 + z3
#
# # Inner model
# Y ~ X + Z + X:Z
# '
#
# # Product Indicator Approaches
# modsem(m1, data = oneInt, method = "ca")
# modsem(m1, data = oneInt, method = "uca")
# modsem(m1, data = oneInt, method = "rca")
# modsem(m1, data = oneInt, method = "dblcent")
#
# # Distribution Analytic Approaches
# modsem(m1, data = oneInt, method = "mplus")
# modsem(m1, data = oneInt, method = "lms")
# modsem(m1, data = oneInt, method = "qml")
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.