expected_values[[runno]] <- list(lik = c(-12574.4, 25162.8, 25202.91), param = c(1.396, 4.2169,
0.016297, 0.19639), stdev_param = c(0.26337, 0.28419, 0.39874,
NA), sigma = c(prop.err = 0.19639), parFixedDf = structure(list(
Estimate = c(lCl = 1.39602345577185, lVc = 4.21689379899576,
lKA = 0.0162967016686301, prop.err = 0.196387395264732),
SE = c(lCl = 0.0246367837495278, lVc = 0.0273227479429384,
lKA = 0.0463157405870906, prop.err = NA), "%RSE" = c(1.76478293739745,
0.647935405663886, 284.203156742109, NA), "Back-transformed" = c(4.03910630460963,
67.8224864826484, 1.01643021721288, 0.196387395264732), "CI Lower" = c(3.84870314818632,
64.2860205024361, 0.928225591175497, NA), "CI Upper" = c(4.23892909164099,
71.5534985170642, 1.11301648681661, NA), "BSV(CV%)" = c(26.8002119297044,
29.0029686787891, 41.5132147237816, NA), "Shrink(SD)%" = c(1.5191761009134,
4.07221348649038, 20.030753383302, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0693629298914198,
0, 0, 0, 0.0807660329814226, 0, 0, 0, 0.158997230308083), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(saem = 18.019, setup = 0.278662999999954,
table = 0.221000000000004, cwres = 0.575999999999908, covariance = 0.04200000000003,
other = 0.268337000000074), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 20969.4678283863, AIC = 25162.8002774011,
BIC = 25202.9053471213, "Log-likelihood" = -12574.4001387006,
"Condition Number" = 3.64256287711133), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.