Returns the inlavaan_internal list stored inside a fitted INLAvaan
object, optionally extracting a single named element.
Arguments
- object
An object of class INLAvaan.
- what
Character. Name of the element to extract from the internal list. If missing, the entire list is returned. Common elements include
"coefficients","summary","Sigma_theta","vcov_x","theta_star","approx_data","pdf_data","partable","marginal_method","nsamp","mloglik","DIC","ppp","vb","opt","timing","visual_debug".
Examples
# \donttest{
HS.model <- "
visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
"
utils::data("HolzingerSwineford1939", package = "lavaan")
fit <- acfa(HS.model, HolzingerSwineford1939, std.lv = TRUE, nsamp = 100,
test = "none", verbose = FALSE)
# Full internal object
int <- get_inlavaan_internal(fit)
names(int)
#> [1] "coefficients" "mloglik" "DIC" "summary"
#> [5] "ppp" "loo" "waic" "optim_method"
#> [9] "marginal_method" "theta_star_novbc" "theta_star" "Sigma_theta"
#> [13] "R_star" "vcov_x" "theta_star_trans" "approx_data"
#> [17] "nsamp" "pdf_data" "partable" "lavmodel"
#> [21] "lavsamplestats" "lavdata" "opt" "timing"
#> [25] "visual_debug" "vb" "version"
# Extract a specific element
get_inlavaan_internal(fit, "coefficients")
#> visual=~x1 visual=~x2 visual=~x3 textual=~x4 textual=~x5
#> 0.9068772 0.5018342 0.6630069 1.0006151 1.1140968
#> textual=~x6 speed=~x7 speed=~x8 speed=~x9 x1~~x1
#> 0.9264937 0.6157067 0.7318348 0.6809695 0.5646793
#> x2~~x2 x3~~x3 x4~~x4 x5~~x5 x6~~x6
#> 1.1503779 0.8556245 0.3786427 0.4545290 0.3636106
#> x7~~x7 x8~~x8 x9~~x9 visual~~textual visual~~speed
#> 0.8234093 0.5058848 0.5687897 0.4486379 0.4653365
#> textual~~speed
#> 0.2797713
# }