expected_values[[runno]] <- list(lik = c(-11945.17, 23908.34, 23959.93), param = c(1.3861,
4.2245, 1.3279, 3.9094, 0.19594), stdev_param = c(0.30427, 0.30106,
0.29133, 0.33541, NA), sigma = c(prop.err = 0.19594), parFixedDf = structure(list(
Estimate = c(lCl = 1.38612890054837, lVc = 4.2244822299107,
lQ = 1.32787364446264, lVp = 3.90938638228804, prop.err = 0.195937871133258
), SE = c(lCl = 0.028517750075595, lVc = 0.0302441503393596,
lQ = 0.0603256829296269, lVp = 0.0389208178038675, prop.err = NA
), "%RSE" = c(2.05736638665516, 0.715925613918346, 4.54302886281316,
0.995573575950514, NA), "Back-transformed" = c(3.99933821246531,
68.339110439287, 3.77301208675117, 49.8683424848915, 0.195937871133258
), "CI Lower" = c(3.7819325571175, 64.4058704172038, 3.35226916285726,
46.2056914077191, NA), "CI Upper" = c(4.22924150447464, 72.5125518121339,
4.24656240748784, 53.8213260406918, NA), "BSV(CV%)" = c(30.8009852648056,
31.1452276667294, 34.5063796169792, 29.7623303909371, NA),
"Shrink(SD)%" = c(2.20233888315879, 2.29336899779123, 38.9377680854807,
27.632993104574, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0925814790491046,
0, 0, 0, 0, 0.0906356980803368, 0, 0, 0, 0, 0.0848737556817176,
0, 0, 0, 0, 0.112497110561606), .Dim = c(4L, 4L), .Dimnames = list(
c("eta.Vc", "eta.Cl", "eta.Vp", "eta.Q"), c("eta.Vc", "eta.Cl",
"eta.Vp", "eta.Q"))), time = structure(list(setup = 0.153757999999935,
optimize = 20.253525, covariance = 20.253526, table = 0.0980000000008658,
other = 42.2401909999999), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 19699.9823636698, AIC = 23908.3420750831,
BIC = 23959.9294515807, "Log-likelihood" = -11945.1710375416,
"Condition Number" = 5.21357569778911), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.