expected_values[[runno]] <- list(lik = c(-38885.74, 77789.48, 77851.11), param = c(1.3561,
4.2192, 1.3379, 3.937, 0.20259), stdev_param = c(0.30414, 0.30017,
0.33982, 0.34561, NA), sigma = c(prop.err = 0.20259), parFixedDf = structure(list(
Estimate = c(lCl = 1.35614531762994, lVc = 4.21916211038093,
lQ = 1.33786044916094, lVp = 3.93702183131402, prop.err = 0.202586633824002
), SE = c(lCl = 0.0275753295121852, lVc = 0.0283852849332005,
lQ = 0.0456672779601877, lVp = 0.0357677549163874, prop.err = NA
), "%RSE" = c(2.03336096461823, 0.672770663714499, 3.41345601395337,
0.908497754112009, NA), "Back-transformed" = c(3.88120362295028,
67.9765036142765, 3.81088120257462, 51.2656958344086, 0.202586633824002
), "CI Lower" = c(3.67700537800289, 64.2979644856649, 3.48460337685894,
47.7948703970706, NA), "CI Upper" = c(4.09674178148306, 71.8654949746028,
4.16770977052419, 54.9885698517803, NA), "BSV(CV%)" = c(30.7064451426754,
31.1307407055519, 35.6194731997015, 34.9870895186344, NA),
"Shrink(SD)%" = c(0.109551180471201, 1.34467397532246, 31.943130471033,
12.2807249181978, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0924992343304467,
0, 0, 0, 0, 0.0901044510527842, 0, 0, 0, 0, 0.11547784144641,
0, 0, 0, 0, 0.119448037307009), .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(saem = 326.989999999999,
setup = 0.171149999999636, table = 0.548999999999978, cwres = 0.765000000000327,
covariance = 0.190000000000509, other = 0.382850000001383), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 64979.8525654147, AIC = 77789.4769476237,
BIC = 77851.1083604037, "Log-likelihood" = -38885.7384738119,
"Condition Number" = 2.81084141279575), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.