This report is designed to help explore the results of an OpenMx analysis.
library(knitr) library(kableExtra) library(polycor) library(purrr) library(rlang) suppressPackageStartupMessages(library(OpenMx)) opts_chunk$set(echo = FALSE) options(knitr.table.format = "html")
src <- knitr::knit_expand( file = system.file("modules", "observed-data-summary.Rmd", package = "mxtx"), .label = make.names(.models[[1]]$name) )
r knitr::knit(text = src, envir = env(.model = .models[[1]]), quiet = TRUE)
src <- lapply(.models, mxtx::reportModule)
r unlist(src)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.