outputParamFig: A function That Exports SEM diagrams based on dySEM models

In jsakaluk/dySEM: Dyadic Structural Equation Modeling

A function That Exports SEM diagrams based on dySEM models

Description

This function takes the model from fitted dySEM scripts and exports .png path diagram figures of expected output.

Usage

outputParamFig(fit, figtype = NULL, writeTo = NULL, fileName = NULL)

Arguments

fit	Input object from fitted lavaan model.
figtype	A character input of what type of model is desired: "unstandardized" for unstandardized path coefficients. "standardized" for standardized path coefficients. "labels" for labelled parameters.
writeTo	A character string specifying a directory path to where the output file of the path diagram should be saved. If set to “.”, the file will be written to the current working directory. The default is NULL (which will throw an error), and examples use a temporary directory created by tempdir().
fileName	A character string specifying a desired base name for the output file. If a fileName not provided (i.e., fileName = NULL), then a default will be used depending on the specified figtype (e.g., "dySEM_figure unstd", "dySEM_figure std", or "dySEM_figure lab"). The specified name will automatically be appended with the .png file extension.

Details

• The function uses semPlot::semPaths() to create a qgraph object of the desired SEM path diagram.

• After execution, a semPlot::semPaths() message will be printed to the console confirming the directory path of the saved output file.

• If a file with the same name already exists in the user's chosen directory, it will be overwritten.

Value

A qgraph object of the desired SEM path diagram, which is simultaneously exported as a .png file to the specified directory.

Examples

dvnx <- scrapeVarCross(dat = commitmentQ, x_order = "spi", x_stem = "sat.g", x_delim1 = ".",
x_delim2="_", distinguish_1="1", distinguish_2="2")

sat.config.script <- scriptCFA(dvnx, lvname = "Sat", constr_dy_meas = "none",
constr_dy_struct = "none")

sat.config.mod <- lavaan::cfa(sat.config.script, data = commitmentQ, std.lv = FALSE,
auto.fix.first= FALSE, meanstructure = TRUE)

outputParamFig(sat.config.mod, figtype = "standardized",
writeTo = tempdir(), fileName = "dCFA_configural")
 
dvnxy <- scrapeVarCross(dat = commitmentQ, x_order = "spi", x_stem = "sat.g", x_delim1 = ".",
x_delim2="_", distinguish_1="1", distinguish_2="2",
y_order="spi", y_stem="com", y_delim1 = ".", y_delim2="_")

apim.indist.script <-  scriptAPIM(dvnxy, lvxname = "Sat", lvyname = "Com", est_k = TRUE)

apim.indist.mod <- lavaan::cfa(apim.indist.script, data = commitmentQ, std.lv = FALSE,
auto.fix.first= FALSE, meanstructure = TRUE)

outputParamFig(apim.indist.mod, figtype = "standardized",
writeTo = tempdir(), fileName = "APIM_indist")

jsakaluk/dySEM documentation built on Sept. 23, 2024, 2:06 p.m.