expected_values[[runno]] <- list(lik = c(-41162.62, 82351.23, 82440.26), param = c(6.8985,
5.5281, 4.2623, 1.386, 3.8901, -0.014006, 0.20081), stdev_param = c(0.3302,
0.26139, 0.26163, 0.28343, 0.35149, 0.28904, NA), sigma = c(prop.err = 0.20081),
parFixedDf = structure(list(Estimate = c(lVM = 6.89846010309978,
lKM = 5.52805564892875, lVc = 4.26226388925643, lQ = 1.38596656933965,
lVp = 3.89011686360767, lKA = -0.0140057416002167, prop.err = 0.200807426329833
), SE = c(lVM = 0.0320051858612339, lKM = 0.0434259639908185,
lVc = 0.0351047289150903, lQ = 0.0781023135707468, lVp = 0.0402788790815251,
lKA = 0.0376394076142517, prop.err = NA), "%RSE" = c(0.463946813968708,
0.785555840039957, 0.823616975091011, 5.63522348219114, 1.03541565700344,
268.742696307273, NA), "Back-transformed" = c(990.747890724456,
251.654131046417, 70.9704710095489, 3.99868904775045, 48.9166027603888,
0.986091882501242, 0.200807426329833), "CI Lower" = c(930.508388877695,
231.121217394255, 66.2516178467071, 3.43112723672403, 45.2033731501868,
0.915964541762451, NA), "CI Upper" = c(1054.88719361129,
274.011198048932, 76.0254303067945, 4.66013440989903, 52.9348554955746,
1.06158825631377, NA), "BSV(CV%)" = c(26.6172343651049, 28.9215092869287,
33.9409035210246, 36.2635931585785, 26.5916593780407, 29.517896069236,
NA), "Shrink(SD)%" = c(11.9466702139237, 32.1909431221169,
3.68538464408505, 47.5677182978961, 29.7780956805243, 16.1893906996536,
NA)), class = "data.frame", row.names = c("lVM", "lKM", "lVc",
"lQ", "lVp", "lKA", "prop.err")), omega = structure(c(0.109032409859606,
0, 0, 0, 0, 0, 0, 0.0683235067035771, 0, 0, 0, 0, 0, 0, 0.0684505932370548,
0, 0, 0, 0, 0, 0, 0.0803306999936656, 0, 0, 0, 0, 0, 0, 0.123548444922059,
0, 0, 0, 0, 0, 0, 0.0835417654419016), .Dim = c(6L, 6L), .Dimnames = list(
c("eta.Vc", "eta.Vp", "eta.VM", "eta.KM", "eta.Q", "eta.KA"
), c("eta.Vc", "eta.Vp", "eta.VM", "eta.KM", "eta.Q",
"eta.KA"))), time = structure(list(setup = 13.2160049999997,
optimize = 1176.902385, covariance = 1176.902386, table = 0.73700000000099,
other = 1372.194224), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 69533.6102516227, AIC = 82351.2346338317,
BIC = 82440.257785625, "Log-likelihood" = -41162.6173169159,
"Condition Number" = 11.2143613701552), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.