expected_values[[runno]] <- list(lik = c(-43933, 87888, 87963.33), param = c(6.9181, 5.4739,
4.2591, 1.3525, 3.9013, 0.19987), stdev_param = c(0.32676, 0.31701,
0.30035, 0.27489, 0.34238, NA), sigma = c(prop.err = 0.19987),
parFixedDf = structure(list(Estimate = c(lVM = 6.91807383968687,
lKM = 5.47389369428683, lVc = 4.25906627919486, lQ = 1.35254057847218,
lVp = 3.9013415498923, prop.err = 0.199867284068566), SE = c(lVM = 0.0416364201540047,
lKM = 0.0549838582246389, lVc = 0.0279919536213412, lQ = 0.0545939567199211,
lVp = 0.0444015184375446, prop.err = NA), "%RSE" = c(0.601849895199865,
1.00447435217871, 0.657232167484202, 4.03640065140154, 1.13810897789173,
NA), "Back-transformed" = c(1010.37198063306, 238.386592545426,
70.7438975572038, 3.86723808245921, 49.4687694318737, 0.199867284068566
), "CI Lower" = c(931.194299921243, 214.032380095967, 66.9672074305323,
3.47480509449129, 45.3457371341432, NA), "CI Upper" = c(1096.28198898417,
265.51201028526, 74.7335783230281, 4.30399115338362, 53.9666858179991,
NA), "BSV(CV%)" = c(33.5682042839364, 32.5139354113743, 30.7257884241946,
28.016582875578, 35.2666790305979, NA), "Shrink(SD)%" = c(12.3894885198095,
35.6389358856877, 2.57211587072995, 47.2589809893554, 19.0122701833729,
NA)), class = "data.frame", row.names = c("lVM", "lKM", "lVc",
"lQ", "lVp", "prop.err")), omega = structure(c(0.106773707128539,
0, 0, 0, 0, 0, 0.100492726808474, 0, 0, 0, 0, 0, 0.0902130363471948,
0, 0, 0, 0, 0, 0.0755645958215639, 0, 0, 0, 0, 0, 0.117226316258868
), .Dim = c(5L, 5L), .Dimnames = list(c("eta.VM", "eta.KM",
"eta.Vc", "eta.Q", "eta.Vp"), c("eta.VM", "eta.KM", "eta.Vc",
"eta.Q", "eta.Vp"))), time = structure(list(setup = 0.179678999999651,
optimize = 224.865815, covariance = 224.865817, table = 0.595999999999549,
other = 403.541689000002), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 75074.3775166907, AIC = 87888.0018988998,
BIC = 87963.3291811864, "Log-likelihood" = -43933.0009494499,
"Condition Number" = 5.95821055802674), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.