expected_values[[runno]] <- list(lik = c(-30311.75, 60641.5, 60699.56), param = c(1.2072,
4.7344, 2.8251, 2.6834, 0.48588), stdev_param = c(0.17801, 0.21832,
0.22143, 0.28636, NA), sigma = c(prop.err = 0.48588), parFixedDf = structure(list(
Estimate = c(lCl = 1.20720393123765, lVc = 4.73439214284958,
lQ = 2.82506793789029, lVp = 2.68340341960861, prop.err = 0.48587555644289
), SE = c(lCl = 0.021340840911761, lVc = 0.0935233622459423,
lQ = 1.79170355956471, lVp = 0.715445121080358, prop.err = NA
), "%RSE" = c(1.76779087273862, 1.9754037989268, 63.4216096375623,
26.6618547122784, NA), "Back-transformed" = c(3.34412117543024,
113.794267032117, 16.8620905220319, 14.6348170558102, 0.48587555644289
), "CI Lower" = c(3.20713062678413, 94.7355874583036, 0.503281053814872,
3.60080254353264, NA), "CI Upper" = c(3.48696318839205, 136.687126314345,
564.95291173386, 59.4805929144089, NA), "BSV(CV%)" = c(22.0949734107065,
17.9430557455718, 29.2330485898935, 22.417709124235, NA),
"Shrink(SD)%" = c(4.2176788002923, 33.7509712111229, 93.3240782437283,
87.3563932937978, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lQ", "lVp", "prop.err")), omega = structure(c(0.0316879175116824,
0, 0, 0, 0, 0.0476645642546871, 0, 0, 0, 0, 0.0490333424447993,
0, 0, 0, 0, 0.0820012005606898), .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 = 90.37,
setup = 0.292855000000011, table = 0.288000000000011, cwres = 0.644000000000005,
covariance = 0.0960000000000036, other = 0.338144999999955), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 52022.2310629094, AIC = 60641.4957337051,
BIC = 60699.5552142053, "Log-likelihood" = -30311.7478668526,
"Condition Number" = 8087.38773296156), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.