expected_values[[runno]] <- list(lik = c(-12128.24, 24266.49, 24295.14), param = c(1.3641,
4.2025, 0.19888), stdev_param = c(0.3028, 0.26721, 0.19888),
sigma = 0.19888, parFixedDf = structure(list(Estimate = c(lCl = 1.36411188659996,
lVc = 4.20248510719337, prop.err = 0.198876696568582), SE = c(lCl = 0.0247999725497584,
lVc = 0.0281578317454108, prop.err = NA), "%RSE" = c(1.81803067573673,
0.670028114964957, NA), "Back-transformed" = c(3.91224698967666,
66.8522598118911, 0.198876696568582), "CI Lower" = c(3.72663183936301,
63.2627552361983, NA), "CI Upper" = c(4.10710721315853, 70.6454315065832,
NA), "BSV(CV%)" = c(27.2046946987639, 30.9880337678785, NA
), "Shrink(SD)%" = c(1.15944260158242, 1.34857355967967,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.09169075, 0, 0, 0.07139888), .Dim = c(2L,
2L), .Dimnames = list(c("eta.Vc", "eta.Cl"), c("eta.Vc",
"eta.Cl"))), time = structure(list(nlme = 25.0630000000001,
setup = 4.67151800000047, table = 0.0789999999997235,
cwres = 4.76100000000042, other = 0.131481999997597), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = c(20073.4782409016, 20055.7900019391
), AIC = c(24266.4864440493, 24248.7982050868), BIC = c(24295.1373180255,
24277.449079063), "Log-likelihood" = c(-12128.2432220246,
-12119.3991025434), "Condition Number" = c(1.28912793280243,
1.28912793280243)), row.names = c("FOCEi", "nlme"), class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.