expected_values[[runno]] <- list(lik = c(-39288.57, 78595.14, 78656.78), param = c(1.3403,
4.1849, 1.3889, 3.9285, 0.20019), stdev_param = c(0.31611, 0.3398,
0.30156, 0.32921, NA), sigma = c(prop.err = 0.20019), parFixedDf = structure(list(
Estimate = c(lCl = 1.34026098386789, lVc = 4.1848828627678,
lQ = 1.38890199983349, lVp = 3.92850868253855, prop.err = 0.20018627073017
), SE = c(lCl = 0.031172568273461, lVc = 0.029526012750465,
lQ = 0.0436051169894454, lVp = 0.032308933562383, prop.err = NA
), "%RSE" = c(2.32585807157495, 0.705539765835575, 3.13953878637032,
0.822422353449029, NA), "Back-transformed" = c(3.82004034418576,
65.6858062125435, 4.01044416624233, 50.8311157856296, 0.20018627073017
), "CI Lower" = c(3.59363373394383, 61.9924709369214, 3.6819317296577,
47.7120666916444, NA), "CI Upper" = c(4.06071105504458, 69.5991799097997,
4.36826741815835, 54.15406439446, NA), "BSV(CV%)" = c(34.9847871273955,
32.417268161589, 33.8338381950497, 30.8551046663487, NA),
"Shrink(SD)%" = c(-0.0119045010317897, 1.27915211832981,
31.7963252418343, 13.4851521386212, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0999249042076542,
0, 0, 0, 0, 0.115463488060112, 0, 0, 0, 0, 0.0909404175548474,
0, 0, 0, 0, 0.108381522448936), .Dim = c(4L, 4L), .Dimnames = list(
c("eta.Vc", "eta.Cl", "eta.Vp", "eta.Q"), c("eta.Vc", "eta.Cl",
"eta.Vp", "eta.Q"))), time = structure(list(saem = 275.735999999999,
setup = 0.177055000000357, table = 0.52599999999984, cwres = 0.742000000000189,
covariance = 0.170000000000073, other = 0.340945000000602), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 65785.5199044228, AIC = 78595.1442866318,
BIC = 78656.7756994118, "Log-likelihood" = -39288.5721433159,
"Condition Number" = 2.27052233895925), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.