expected_values[[runno]] <- list(lik = c(-37489.6, 74993.2, 75041.12), param = c(1.3878,
4.2026, 0.0039645, 0.19794), stdev_param = c(0.26071, 0.27973,
0.33207, NA), sigma = c(prop.err = 0.19794), parFixedDf = structure(list(
Estimate = c(lCl = 1.38778592803091, lVc = 4.20263958959361,
lKA = 0.00396453250515132, prop.err = 0.197935137877914),
SE = c(lCl = 0.0239672106062838, lVc = 0.0259550783198162,
lKA = 0.032563408586398, prop.err = NA), "%RSE" = c(1.72701063774946,
0.617589916206115, 821.368182606315, NA), "Back-transformed" = c(4.00597071940085,
66.8625881071978, 1.00397240165988, 0.197935137877914), "CI Lower" = c(3.82214222925943,
63.5462870875771, 0.941897731545196, NA), "CI Upper" = c(4.19864056388251,
70.351957498816, 1.07013803042198, NA), "BSV(CV%)" = c(26.5206723730455,
28.5295247478881, 34.1438512442314, NA), "Shrink(SD)%" = c(0.294325280731633,
0.926856935754783, 5.63395033249009, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.067971315767593,
0, 0, 0, 0.0782503746198842, 0, 0, 0, 0.1102706730812), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(saem = 65.9600000000002,
setup = 0.292940000000082, table = 0.514999999999986, cwres = 0.86099999999999,
covariance = 0.138999999999896, other = 0.361059999999853), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 62211.4655465961, AIC = 74993.1975269418,
BIC = 75041.1199832767, "Log-likelihood" = -37489.5987634709,
"Condition Number" = 1.85710680404707), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.