expected_values[[runno]] <- list(lik = c(-43434.32, 86878.64, 86912.88), param = c(1.2773,
4.5188, 0.50886), stdev_param = c(0.24297, 0.22132, NA), sigma = c(prop.err = 0.50886),
parFixedDf = structure(list(Estimate = c(lCl = 1.27726990557554,
lVc = 4.51876137641618, prop.err = 0.50886263974542), SE = c(lCl = 0.0211214202448725,
lVc = 0.0243925548373744, prop.err = NA), "%RSE" = c(1.6536379783688,
0.539806216913364, NA), "Back-transformed" = c(3.58683395094359,
91.7219186581444, 0.50886263974542), "CI Lower" = c(3.44138044346153,
87.4400003126617, NA), "CI Upper" = c(3.73843520151491, 96.2135216405417,
NA), "BSV(CV%)" = c(22.405694657803, 24.659954665849, NA),
"Shrink(SD)%" = c(2.6063777791264, 6.94328966708734,
NA)), class = "data.frame", row.names = c("lCl", "lVc",
"prop.err")), omega = structure(c(0.0590340270554179, 0,
0, 0.0489820650980044), .Dim = c(2L, 2L), .Dimnames = list(
c("eta.Vc", "eta.Cl"), c("eta.Vc", "eta.Cl"))), time = structure(list(
saem = 66.965, setup = 0.261439999999995, table = 0.55400000000003,
cwres = 0.829000000000008, covariance = 0.125, other = 0.310559999999953), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 74089.8814706978, AIC = 86878.6407134419,
BIC = 86912.8753559424, "Log-likelihood" = -43434.320356721,
"Condition Number" = 1.37569117209564), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.