expected_values[[runno]] <- list(lik = c(-26151.3, 52316.6, 52361.75), param = c(1.3891,
4.2074, 0.00011844, 0.19661), stdev_param = c(0.26632, 0.28313,
0.36182, NA), sigma = c(prop.err = 0.19661), parFixedDf = structure(list(
Estimate = c(lCl = 1.38913557675682, lVc = 4.20735255013997,
lKA = 0.000118435743733656, prop.err = 0.196610833884277),
SE = c(lCl = 0.0245595057143865, lVc = 0.0265882614627867,
lKA = 0.0381568390718845, prop.err = NA), "%RSE" = c(1.76797039290614,
0.631947552431805, 32217.3339475062, NA), "Back-transformed" = c(4.01138102286167,
67.1784525907337, 1.00011844275752, 0.196610833884277), "CI Lower" = c(3.82286380944338,
63.7672997123258, 0.928051924532671, NA), "CI Upper" = c(4.20919460191747,
70.7720808760095, 1.07778118131419, NA), "BSV(CV%)" = c(27.1111051773887,
28.8897808111085, 37.3991296678389, NA), "Shrink(SD)%" = c(0.443640080208751,
1.99128501221733, 12.7543455135903, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0709254584049521,
0, 0, 0, 0.080161417733116, 0, 0, 0, 0.130913773388912), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(saem = 327.974,
setup = 0.161886999999935, table = 0.307999999999993, cwres = 0.518999999999778,
covariance = 0.151999999999589, other = 0.419113000000209), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 43712.3604348191, AIC = 52316.5978432164,
BIC = 52361.7462368221, "Log-likelihood" = -26151.2989216082,
"Condition Number" = 2.43955712737229), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.