expected_values[[runno]] <- list(lik = c(-27495.21, 55008.42, 55066.48), param = c(1.3311,
4.1777, 1.4408, 3.8503, 0.2025), stdev_param = c(0.30908, 0.34369,
0.27056, 0.45401, NA), sigma = c(prop.err = 0.2025), parFixedDf = structure(list(
Estimate = c(lCl = 1.33111377103362, lVc = 4.17771744366026,
lQ = 1.44076308853026, lVp = 3.85029772461521, prop.err = 0.202496238797861
), SE = c(lCl = 0.0315993586616768, lVc = 0.0298091499982591,
lQ = 0.0685901119829, lVp = 0.0341130292171179, prop.err = NA
), "%RSE" = c(2.37390366994247, 0.713527192785497, 4.76067942945911,
0.885984192833479, NA), "Back-transformed" = c(3.78525695020717,
65.216822121991, 4.22391781074112, 47.0070563061853, 0.202496238797861
), "CI Lower" = c(3.55793445113762, 61.5157096252492, 3.69259306666518,
43.9669148544052, NA), "CI Upper" = c(4.02710347137237, 69.1406132450054,
4.83169451650648, 50.2574117353945, NA), "BSV(CV%)" = c(35.4094765097492,
31.6611811368238, 47.8444633082239, 27.5583806740726, NA),
"Shrink(SD)%" = c(0.1509034316304, 3.68071811003027, 40.6117336928236,
23.1478085090295, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.095531100034087,
0, 0, 0, 0, 0.118123513393436, 0, 0, 0, 0, 0.0732006784722756,
0, 0, 0, 0, 0.206127001109341), .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 = 78.018,
setup = 0.542167000000011, table = 0.240000000000009, cwres = 0.814999999999998,
covariance = 0.0860000000000127, other = 0.302832999999993), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 46389.152925007, AIC = 55008.4175958028,
BIC = 55066.477076303, "Log-likelihood" = -27495.2087979014,
"Condition Number" = 5.78417995584091), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.