expected_values[[runno]] <- list(lik = c(-12189.37, 24396.74, 24448.33), param = c(1.35,
4.1886, 1.3801, 3.9128, 0.19562), stdev_param = c(0.31646, 0.32513,
0.28024, 0.34341, NA), sigma = c(prop.err = 0.19562), parFixedDf = structure(list(
Estimate = c(lCl = 1.34996061940491, lVc = 4.18862068923583,
lQ = 1.38014438067918, lVp = 3.91281160293809, prop.err = 0.195615414484143
), SE = c(lCl = 0.03038713134379, lVc = 0.0301282494491945,
lQ = 0.0509517208575778, lVp = 0.0362094120374469, prop.err = NA
), "%RSE" = c(2.25096428051251, 0.719288082748098, 3.69176743903445,
0.925406477793553, NA), "Back-transformed" = c(3.85727362597512,
65.9317877894119, 3.97547556792337, 50.0394454267358, 0.195615414484143
), "CI Lower" = c(3.63425063255324, 62.1512173714085, 3.59764995796464,
46.6112747570565, NA), "CI Upper" = c(4.09398286743651, 69.9423249448337,
4.39298046664243, 53.7197515336393, NA), "BSV(CV%)" = c(33.3911816887381,
32.4554847208592, 35.3790255477213, 28.5828087506089, NA),
"Shrink(SD)%" = c(1.61736614530968, 2.72378299205184, 39.2743918004866,
29.0918348264622, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.100149224398422,
0, 0, 0, 0, 0.105707846642764, 0, 0, 0, 0, 0.0785317473082934,
0, 0, 0, 0, 0.117931953341489), .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(saem = 22.556,
setup = 13.088223, table = 0.0699999999999932, cwres = 13.172,
covariance = 0.0409999999999968, other = 0.294776999999996), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 20188.3832873037, AIC = 24396.742998717,
BIC = 24448.3303752146, "Log-likelihood" = -12189.3714993585,
"Condition Number" = 2.97974057478602), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.