expected_values[[runno]] <- list(lik = c(-12857.83, 25725.67, 25754.32), param = c(1.3593,
4.1997, 0.19921), stdev_param = c(0.32335, 0.26877, NA), sigma = c(prop.err = 0.19921),
parFixedDf = structure(list(Estimate = c(lCl = 1.35925067007111,
lVc = 4.1996799074996, prop.err = 0.199214089427663), SE = c(lCl = 0.0249324198018508,
lVc = 0.0302722480782669, prop.err = NA), "%RSE" = c(1.83427680786403,
0.720822747090987, NA), "Back-transformed" = c(3.89327486111946,
66.6649886624299, 0.199214089427663), "CI Lower" = c(3.70759724967556,
62.8246424077447, NA), "CI Upper" = c(4.08825126449513, 70.740087695494,
NA), "BSV(CV%)" = c(27.3696493513303, 33.1985665385321, NA
), "Shrink(SD)%" = c(0.986249533695138, 1.98056190806595,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.104553223704549, 0, 0, 0.0722367236955241
), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(saem = 95.361,
setup = 0.154035000000048, table = 0.0910000000000082,
cwres = 0.262, covariance = 0.0610000000000355, other = 0.193964999999906), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 21534.4963412264, AIC = 25725.6666673077,
BIC = 25754.3153439646, "Log-likelihood" = -12857.8333336538,
"Condition Number" = 1.48246075630702), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.