expected_values[[runno]] <- list(lik = c(-42582.16, 85182.33, 85243.96), param = c(6.9106,
5.5265, 4.2228, -0.010441, 0.19758), stdev_param = c(0.2884,
0.29389, 0.29803, 0.31395, NA), sigma = c(prop.err = 0.19758),
parFixedDf = structure(list(Estimate = c(lVM = 6.91062582481228,
lKM = 5.52648101804197, lVc = 4.22278921810001, lKA = -0.010441207289823,
prop.err = 0.197579248841073), SE = c(lVM = 0.0296376105722817,
lKM = 0.0387422511595945, lVc = 0.0268775976569605, lKA = 0.0318823998265303,
prop.err = NA), "%RSE" = c(0.428870138879018, 0.701029299351884,
0.636489208169706, 305.351660411971, NA), "Back-transformed" = c(1002.87466979189,
251.258180498679, 68.2235094027535, 0.989613112894527, 0.197579248841073
), "CI Lower" = c(946.278738759661, 232.885659437436, 64.7225773279964,
0.929666310913264, NA), "CI Upper" = c(1062.8555436303, 271.080123267387,
71.9138116462842, 1.05342540836049, NA), "BSV(CV%)" = c(30.0351956761805,
30.4773951423673, 29.4507131289901, 32.1848288081015, NA),
"Shrink(SD)%" = c(5.13128179440599, 24.4996393264125,
1.19437108627397, 8.88512966022932, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "lKA", "prop.err")), omega = structure(c(0.0831772824159671,
0, 0, 0, 0, 0.0863715287668327, 0, 0, 0, 0, 0.0888229664143623,
0, 0, 0, 0, 0.0985651679785173), .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 = 486.666, setup = 0.181039999999352, table = 0.594000000000051,
cwres = 0.845000000000255, covariance = 0.248999999999796,
other = 0.451959999999985), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 72374.5387476476, AIC = 85182.3252527903,
BIC = 85243.9553723738, "Log-likelihood" = -42582.1626263951,
"Condition Number" = 2.33363305901082), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.