expected_values[[runno]] <- list(lik = c(-29928.62, 59879.24, 59950.2), param = c(7.4515,
6.5821, 4.2729, 1.4891, 3.613, 0.20924), stdev_param = c(0.19538,
0.62048, 0.29562, 0.39037, 0.47398, NA), sigma = c(prop.err = 0.20924),
parFixedDf = structure(list(Estimate = c(lVM = 7.45151325474102,
lKM = 6.58207596900363, lVc = 4.27294209801096, lQ = 1.48909944309685,
lVp = 3.61301184644837, prop.err = 0.209239788425816), SE = c(lVM = 0.0723667142513937,
lKM = 0.146119917709152, lVc = 0.0301916140583918, lQ = 0.153075166290339,
lVp = 0.0561491782357611, prop.err = NA), "%RSE" = c(0.97116802691521,
2.21996704986787, 0.706576718473341, 10.2797141587798, 1.55408231752565,
NA), "Back-transformed" = c(1722.46770661987, 722.036700272732,
71.7323691284264, 4.43310146071242, 37.0775567217364, 0.209239788425816
), "CI Lower" = c(1494.69447610275, 542.227791609798, 67.6107924424417,
3.2840507009184, 33.2136680463352, NA), "CI Upper" = c(1984.95080284511,
961.472290073807, 76.1051985177855, 5.9841915825096, 41.3909481643437,
NA), "BSV(CV%)" = c(19.7258424672927, 68.5282668603876, 30.2199903284146,
40.5730138622375, 50.1893279919258, NA), "Shrink(SD)%" = c(49.7452450626127,
20.6825862384151, 8.66799366100187, 67.728049981006, 27.3079325310739,
NA)), class = "data.frame", row.names = c("lVM", "lKM", "lVc",
"lQ", "lVp", "prop.err")), omega = structure(c(0.0381729395305893,
0, 0, 0, 0, 0, 0.384998648928766, 0, 0, 0, 0, 0, 0.0873923541581461,
0, 0, 0, 0, 0, 0.152392230707034, 0, 0, 0, 0, 0, 0.2246598926299
), .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.300298000000262,
optimize = 192.011588, covariance = 192.01159, table = 0.320999999999913,
other = 588.544524), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 51255.9765250221, AIC = 59879.2411958178,
BIC = 59950.2027830958, "Log-likelihood" = -29928.6205979089,
"Condition Number" = 39.3150352644786), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.