expected_values[[runno]] <- list(lik = c(-41551.86, 83125.72, 83201.05), param = c(6.8867,
5.4392, 4.2624, 1.3659, 3.9159, 0.20176), stdev_param = c(0.30144,
0.31737, 0.29221, 0.39781, 0.31527, NA), sigma = c(prop.err = 0.20176),
parFixedDf = structure(list(Estimate = c(lVM = 6.8866841810606,
lKM = 5.43919801883129, lVc = 4.26241293966761, lQ = 1.3659344084314,
lVp = 3.91587493325991, prop.err = 0.201755077342506), SE = c(lVM = 0.0369228979759854,
lKM = 0.0494682454864652, lVc = 0.0277733159783898, lQ = 0.0577168197853509,
lVp = 0.0388809232766995, prop.err = NA), "%RSE" = c(0.536149139487606,
0.909476825723186, 0.651586703857828, 4.22544592398337, 0.992905134596105,
NA), "Back-transformed" = c(979.14934661122, 230.25744725641,
70.9810499758144, 3.91938364660642, 50.1929678020178, 0.201755077342506
), "CI Lower" = c(910.793894594012, 208.98072844149, 67.2204986614381,
3.50016993561626, 46.5101107272288, NA), "CI Upper" = c(1052.63490308808,
253.70038860728, 74.9519797680309, 4.38880638707653, 54.167448268393,
NA), "BSV(CV%)" = c(30.8422096154035, 32.5532632134493, 29.8558100181561,
41.4084714977003, 32.3272638148262, NA), "Shrink(SD)%" = c(12.4213623415802,
28.3563707221766, 2.32393281249916, 33.6053000597107, 20.2057361769204,
NA)), class = "data.frame", row.names = c("lVM", "lKM", "lVc",
"lQ", "lVp", "prop.err")), omega = structure(c(0.0908677718110326,
0, 0, 0, 0, 0, 0.100724129336186, 0, 0, 0, 0, 0, 0.0853855836889821,
0, 0, 0, 0, 0, 0.158256084973882, 0, 0, 0, 0, 0, 0.099397450589762
), .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.168949000001455,
optimize = 187.794087, covariance = 187.794088, table = 0.576000000000931,
other = 328.971875999996), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 70312.097667953, AIC = 83125.7220501621,
BIC = 83201.0493324487, "Log-likelihood" = -41551.861025081,
"Condition Number" = 5.45009182749675), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.