expected_values[[runno]] <- list(lik = c(-27489.33, 54996.66, 55054.72), param = c(1.3413,
4.1824, 1.475, 3.8443, 0.20271), stdev_param = c(0.30919, 0.34279,
0.26466, 0.38157, NA), sigma = c(prop.err = 0.20271), parFixedDf = structure(list(
Estimate = c(lCl = 1.34126092065566, lVc = 4.18239159333956,
lQ = 1.47501452397365, lVp = 3.84434509235669, prop.err = 0.202713515365694
), SE = c(lCl = 0.0316273177490553, lVc = 0.0302513282440235,
lQ = 0.0717234627079849, lVp = 0.0334636516795403, prop.err = NA
), "%RSE" = c(2.35802872222615, 0.723302148278, 4.86255976075161,
0.870464302127106, NA), "Back-transformed" = c(3.8238620534721,
65.5223688394526, 4.37109925819919, 46.7280717564449, 0.202713515365694
), "CI Lower" = c(3.59402418259262, 61.7503769224517, 3.79786520312822,
43.761635873892, NA), "CI Upper" = c(4.06839805775488, 69.5247710588843,
5.03085488902869, 49.8955911147309, NA), "BSV(CV%)" = c(35.3109010017428,
31.6726473477004, 39.5888276075245, 26.9358464948451, NA),
"Shrink(SD)%" = c(0.652199855285429, 3.63671147065708, 40.9815590779594,
23.4340959451844, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0955971013667414,
0, 0, 0, 0, 0.117503861540239, 0, 0, 0, 0, 0.0700427040166455,
0, 0, 0, 0, 0.145594921025011), .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(setup = 0.174201999999854,
optimize = 106.73287, covariance = 106.732872, table = 0.289999999999964,
other = 223.946056), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 46377.3982160004, AIC = 54996.6628867961,
BIC = 55054.7223672963, "Log-likelihood" = -27489.331443398,
"Condition Number" = 7.50151220883085), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.