expected_values[[runno]] <- list(lik = c(-31283.4, 62580.8, 62625.95), param = c(7.1159,
6.1656, 4.1392, 0.20336), stdev_param = c(0.31549, 0.24289, 0.59709,
NA), sigma = c(prop.err = 0.20336), parFixedDf = structure(list(
Estimate = c(lVM = 7.11585218758354, lKM = 6.16564024340783,
lVc = 4.13924414246839, prop.err = 0.203357374695954), SE = c(lVM = 0.0363888663556677,
lKM = 0.0923012918674714, lVc = 0.029936476700148, prop.err = NA
), "%RSE" = c(0.511377490656182, 1.49702688161474, 0.723235346110697,
NA), "Back-transformed" = c(1231.33249047667, 476.105869019595,
62.7553693993569, 0.203357374695954), "CI Lower" = c(1146.57133491562,
397.316437753678, 59.1791761810762, NA), "CI Upper" = c(1322.35967875044,
570.519558154891, 66.5476717080269, NA), "BSV(CV%)" = c(24.6514114869976,
65.4486281054794, 32.3503131006791, NA), "Shrink(SD)%" = c(27.8426434178638,
29.7704469083401, 2.31137293840119, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.0995324134096194,
0, 0, 0, 0.0589943136614153, 0, 0, 0, 0.356521536634688), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Vc", "eta.VM", "eta.KM"), c("eta.Vc",
"eta.VM", "eta.KM"))), time = structure(list(saem = 184.697,
setup = 0.235714999999895, table = 0.310999999999922, cwres = 0.565000000000055,
covariance = 0.135999999999967, other = 0.365285000000114), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 53972.883617592, AIC = 62580.7967801221,
BIC = 62625.9481683802, "Log-likelihood" = -31283.398390061,
"Condition Number" = 10.8293260249513), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.