expected_values[[runno]] <- list(lik = c(-12044.25, 24106.5, 24158.09), param = c(6.9114,
5.522, 4.235, 0.0099988, 0.19252), stdev_param = c(0.29486, 0.26095,
0.36142, 0.30731, NA), sigma = c(prop.err = 0.19252), parFixedDf = structure(list(
Estimate = c(lVM = 6.91142325517718, lKM = 5.52204347329164,
lVc = 4.23501048572482, lKA = 0.0099987825821457, prop.err = 0.192521618882743
), SE = c(lVM = 0.0464412227788152, lKM = 0.0809189581741544,
lVc = 0.0279708927552252, lKA = 0.0325457651850827, prop.err = NA
), "%RSE" = c(0.671948758803439, 1.46538067955339, 0.660468087375655,
325.497278470661, NA), "Back-transformed" = c(1003.67471145213,
250.145681286941, 69.062402899074, 1.01004893743181, 0.192521618882743
), "CI Lower" = c(916.351597537404, 213.459096664375, 65.378178670185,
0.947631329754115, NA), "CI Upper" = c(1099.31922322795,
293.137480877155, 72.954242397229, 1.07657780401988, NA),
"BSV(CV%)" = c(26.5454934784181, 37.3548378553605, 30.1384992149858,
31.4712001641019, NA), "Shrink(SD)%" = c(17.5510438311191,
34.6545912986663, 2.08214460719865, 10.8814496446127, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "lKA", "prop.err")), omega = structure(c(0.0869415452535236,
0, 0, 0, 0, 0.0680943688621909, 0, 0, 0, 0, 0.130623260333984,
0, 0, 0, 0, 0.0944403870778222), .Dim = c(4L, 4L), .Dimnames = list(
c("eta.Vc", "eta.VM", "eta.KM", "eta.KA"), c("eta.Vc", "eta.VM",
"eta.KM", "eta.KA"))), time = structure(list(saem = 117.367,
setup = 6.90591099999993, table = 0.0979999999999563, cwres = 7.02300000000014,
covariance = 0.0720000000001164, other = 0.212088999999992), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 19899.9801798792, AIC = 24106.5020142261,
BIC = 24158.0854424893, "Log-likelihood" = -12044.2510071131,
"Condition Number" = 11.0249590198241), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.