expected_values[[runno]] <- list(lik = c(-37486.81, 74987.63, 75035.55), param = c(1.39,
4.2027, -0.00073165, 0.19805), stdev_param = c(0.25974, 0.28031,
0.33291, NA), sigma = c(prop.err = 0.19805), parFixedDf = structure(list(
Estimate = c(lCl = 1.39003450140363, lVc = 4.20266005601877,
lKA = -0.000731645526602376, prop.err = 0.198052730422482
), SE = c(lCl = 0.0244267330960881, lVc = 0.026443709681839,
lKA = 0.0322379218430383, prop.err = NA), "%RSE" = c(1.75727531017556,
0.629213624927101, 4406.2214106256, NA), "Back-transformed" = c(4.01498857334597,
66.8639565593567, 0.999268622060722, 0.198052730422482),
"CI Lower" = c(3.82729766733797, 63.4867572829612, 0.938083034216091,
NA), "CI Upper" = c(4.21188385258544, 70.4208070802102, 1.06444498260174,
NA), "BSV(CV%)" = c(26.4187446881828, 28.5902842858881, 34.2346640320789,
NA), "Shrink(SD)%" = c(-0.063457015002788, 1.56768937112222,
6.17494331224736, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.0674670479606729,
0, 0, 0, 0.0785712584427156, 0, 0, 0, 0.110826649018587), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(setup = 0.17393700000002,
optimize = 104.239485, covariance = 104.239486, table = 0.529999999999973,
other = 267.933092), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 62205.8945017642, AIC = 74987.6264821099,
BIC = 75035.5489384448, "Log-likelihood" = -37486.813241055,
"Condition Number" = 1.76349768436601), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.