expected_values[[runno]] <- list(lik = c(-13384.72, 26787.44, 26839.02), param = c(1.373,
4.2262, 1.333, 3.9663, 0.20254), stdev_param = c(0.30291, 0.28208,
0.42225, 0.50802, NA), sigma = c(prop.err = 0.20254), parFixedDf = structure(list(
Estimate = c(lCl = 1.37304329716572, lVc = 4.22619492730413,
lQ = 1.33304101796327, lVp = 3.96626420139276, prop.err = 0.202539665691034
), SE = c(lCl = 0.0263461772751945, lVc = 0.0310997030083599,
lQ = 0.092955463119558, lVp = 0.0529717549985806, prop.err = NA
), "%RSE" = c(1.91881620409051, 0.735879521491884, 6.97318851160209,
1.33555790307613, NA), "Back-transformed" = c(3.94734537952456,
68.456254943514, 3.79255910931403, 52.7869605742985, 0.202539665691034
), "CI Lower" = c(3.74868734952022, 64.4081790854158, 3.16088375588581,
47.581378151956, NA), "CI Upper" = c(4.15653109807839, 72.7587537395933,
4.55046933341272, 58.5620533683092, NA), "BSV(CV%)" = c(28.778538092331,
30.999336146552, 54.2625735923026, 44.1788867194152, NA),
"Shrink(SD)%" = c(1.05080797437884, 8.48003786978551, 49.547140036795,
25.6718869309956, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0917546702399648,
0, 0, 0, 0, 0.0795691421497047, 0, 0, 0, 0, 0.178294628906354,
0, 0, 0, 0, 0.25808024675818), .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 = 325.76,
setup = 0.206247999999951, table = 0.302000000000021, cwres = 0.634000000000015,
covariance = 0.113999999999919, other = 0.378752000000077), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 22579.0761883302, AIC = 26787.4358997435,
BIC = 26839.0232762411, "Log-likelihood" = -13384.7179498718,
"Condition Number" = 12.9358980629255), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.