Showing content from http://cran.rstudio.com/web/packages/Rcpp/../RcppXsimd/../Rcpp/../modsem/vignettes/customizing.R below:
## ----include = FALSE---------------------------------------------------------- EVAL_DEFAULT <- FALSE knitr::opts_chunk$set( collapse = TRUE, comment = "#>", eval = EVAL_DEFAULT ) ## ----setup, eval = TRUE------------------------------------------------------- library(modsem) ## ----------------------------------------------------------------------------- # m1 <- ' # # Outer Model # X =~ x1 + x2 + x3 # Y =~ y1 + y2 + y3 # Z =~ z1 + z2 + z3 # # # Inner model # Y ~ X + Z + X:Z # ' # # est1 <- modsem(m1, oneInt) # cat(est1$syntax) ## ----------------------------------------------------------------------------- # m2 <- ' # # Outer Model # X =~ x1 + x2 # Y =~ y1 + y2 # Z =~ z1 + z2 # # # Inner model # Y ~ X + Z + X:Z # ' # # est2 <- modsem(m2, oneInt, match = TRUE) # summary(est2) ## ----------------------------------------------------------------------------- # m3 <- ' # # Outer Model # X =~ x1 + x2 + x3 # Y =~ y1 + y2 + y3 # Z =~ z1 + z2 + z3 # # # Inner model # Y ~ X + Z + X:Z # ' # syntax <- get_pi_syntax(m3) # cat(syntax) ## ----------------------------------------------------------------------------- # data <- get_pi_data(m3, oneInt) # head(data) ## ----------------------------------------------------------------------------- # library(lavaan) # fit <- sem(syntax, data = data, fixed.x = FALSE, # std.lv = TRUE, auto.fix.first = TRUE, # auto.var = TRUE, auto.cov.lv.x = TRUE) # summary(fit)
RetroSearch is an open source project built by @garambo
| Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4