expected_values[[runno]] <- list(lik = c(-43488.9, 86991.81, 87039.73), param = c(6.9067,
5.5511, 4.1796, 0.20098), stdev_param = c(0.2994, 0.3037, 0.31683,
NA), sigma = c(prop.err = 0.20098), parFixedDf = structure(list(
Estimate = c(lVM = 6.90667607173095, lKM = 5.55113884224247,
lVc = 4.17955043400268, prop.err = 0.200976751653605), SE = c(lVM = 0.0300168785475939,
lKM = 0.0392674489267104, lVc = 0.0276346721230122, prop.err = NA
), "%RSE" = c(0.434606723058187, 0.707376450898635, 0.661187669807515,
NA), "Back-transformed" = c(998.92137488353, 257.530675777756,
65.336473553562, 0.200976751653605), "CI Lower" = c(941.848158328212,
238.453913434674, 61.8917859338646, NA), "CI Upper" = c(1059.45305979085,
278.133615050595, 68.9728808436204, NA), "BSV(CV%)" = c(31.0841503273811,
32.4954555645243, 30.6234930122895, NA), "Shrink(SD)%" = c(5.25797174417054,
23.9306243492045, 0.449929851455311, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "prop.err")), omega = structure(c(0.089639433679892,
0, 0, 0, 0.0922349471721305, 0, 0, 0, 0.100384070580915), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Vc", "eta.VM", "eta.KM"), c("eta.Vc",
"eta.VM", "eta.KM"))), time = structure(list(saem = 251.116,
setup = 0.247391999999847, table = 0.785999999999831, cwres = 1.06100000000015,
covariance = 0.20900000000006, other = 0.417608000000342), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 74204.5602568787, AIC = 86991.8058684237,
BIC = 87039.7313469936, "Log-likelihood" = -43488.9029342118,
"Condition Number" = 2.14898804187484), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.