expected_values[[runno]] <- list(lik = c(-39284.01, 78586.02, 78647.65), param = c(1.3447,
4.1897, 1.3859, 3.9134, 0.20037), stdev_param = c(0.31667, 0.33691,
0.28937, 0.30161, NA), sigma = c(prop.err = 0.20037), parFixedDf = structure(list(
Estimate = c(lCl = 1.3446769557615, lVc = 4.1897167411344,
lQ = 1.38594309992573, lVp = 3.91343175519055, prop.err = 0.200369493178364
), SE = c(lCl = 0.0319497136679673, lVc = 0.0290753620706995,
lQ = 0.044312517688549, lVp = 0.0322341659256883, prop.err = NA
), "%RSE" = c(2.37601407022505, 0.693969637260659, 3.1972826078447,
0.823680287331821, NA), "Back-transformed" = c(3.8369468368021,
66.004092067977, 3.99859520196331, 50.0704871258237, 0.200369493178364
), "CI Lower" = c(3.60404443006089, 62.3479054812243, 3.66596704931291,
47.0049986779372, NA), "CI Upper" = c(4.08489998226711, 69.8746836175585,
4.36140406449118, 53.3358951501049, NA), "BSV(CV%)" = c(34.6695333259279,
32.4772035563696, 30.8606345098009, 29.5535065364354, NA),
"Shrink(SD)%" = c(-0.200804654564446, 1.63183340267847, 32.0660413719332,
12.911539084562, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.100276803036141,
0, 0, 0, 0, 0.11350514661515, 0, 0, 0, 0, 0.0837352432741781,
0, 0, 0, 0, 0.0909715782461318), .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.178811999999854,
optimize = 130.608439, covariance = 130.608441, table = 0.537999999999556,
other = 315.231308000001), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 65776.3926003577, AIC = 78586.0169825667,
BIC = 78647.6483953467, "Log-likelihood" = -39284.0084912834,
"Condition Number" = 2.56092587238858), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.