expected_values[[runno]] <- list(lik = c(-12123.06, 24256.11, 24284.77), param = c(1.3608,
4.204, 0.19783), stdev_param = c(0.30273, 0.27025, NA), sigma = c(prop.err = 0.19783),
parFixedDf = structure(list(Estimate = c(lCl = 1.36081796435751,
lVc = 4.20404266373449, prop.err = 0.197825873859317), SE = c(lCl = 0.0250605292114154,
lVc = 0.0281333151225741, prop.err = NA), "%RSE" = c(1.841578364469,
0.669196708331761, NA), "Back-transformed" = c(3.89938155280614,
66.9564671197697, 0.197825873859317), "CI Lower" = c(3.71248041862188,
63.3644120258717, NA), "CI Upper" = c(4.0956920386961, 70.7521516546279,
NA), "BSV(CV%)" = c(27.5262484392335, 30.9799726901981, NA
), "Shrink(SD)%" = c(0.929348870902047, 1.22161399602345,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.0916451725795895, 0, 0, 0.0730361593303677
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(saem = 53.721,
setup = 0.632644, table = 0.0730000000000075, cwres = 0.718000000000004,
covariance = 0.146999999999991, other = 0.421355999999996), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 20063.1061576867, AIC = 24256.1143608344,
BIC = 24284.7652348106, "Log-likelihood" = -12123.0571804172,
"Condition Number" = 1.26588731904372), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.