expected_values[[runno]] <- list(lik = c(-38499, 77020, 77095.33), param = c(1.3526, 4.2265,
1.4288, 3.8473, -0.06302, 0.19902), stdev_param = c(0.26072,
0.31747, 0.29529, 0.38017, 0.32132, NA), sigma = c(prop.err = 0.19902),
parFixedDf = structure(list(Estimate = c(lCl = 1.35257037796101,
lVc = 4.22650703898738, lQ = 1.42875851427937, lVp = 3.84725628651237,
lKA = -0.0630201404111689, prop.err = 0.199022542520284),
SE = c(lCl = 0.0289243894401903, lVc = 0.0291314241297629,
lQ = 0.0673252862325724, lVp = 0.0365560869043312, lKA = 0.0377566087762365,
prop.err = NA), "%RSE" = c(2.13847574303628, 0.689255308486188,
4.71215293275292, 0.950185903457713, 59.9119718393154,
NA), "Back-transformed" = c(3.86735332589436, 68.4776242751092,
4.17351461550038, 46.8643044495436, 0.938924563171942,
0.199022542520284), "CI Lower" = c(3.65420886286358,
64.6773133886809, 3.65758604041703, 43.6240093852861,
0.871951275119429, NA), "CI Upper" = c(4.09293018231743,
72.50123390536, 4.7622185926238, 50.3452814742949, 1.01104197044367,
NA), "BSV(CV%)" = c(32.5645041966497, 26.5213087445653,
39.4329202189407, 30.1847681695677, 32.9793474040164,
NA), "Shrink(SD)%" = c(0.410167302119036, 7.2140174804875,
34.4780355142748, 17.2261009906482, 11.7329962154402,
NA)), class = "data.frame", row.names = c("lCl", "lVc",
"lQ", "lVp", "lKA", "prop.err")), omega = structure(c(0.0679744693938249,
0, 0, 0, 0, 0, 0.100790312190883, 0, 0, 0, 0, 0, 0.0871973807228295,
0, 0, 0, 0, 0, 0.144529273355101, 0, 0, 0, 0, 0, 0.103245642857572
), .Dim = c(5L, 5L), .Dimnames = list(c("eta.Vc", "eta.Cl",
"eta.Vp", "eta.Q", "eta.KA"), c("eta.Vc", "eta.Cl", "eta.Vp",
"eta.Q", "eta.KA"))), time = structure(list(setup = 0.181503000000466,
optimize = 706.445034, covariance = 706.445036, table = 0.694999999999709,
other = 1196.677427), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 64206.378053769, AIC = 77020.002435978,
BIC = 77095.3297182646, "Log-likelihood" = -38499.001217989,
"Condition Number" = 8.1496323748237), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.