expected_values[[runno]] <- list(lik = c(-12791.94, 25593.87, 25622.52), param = c(1.3876,
4.2243, 0.32482), stdev_param = c(6.2114e-05, 0.30251, 0.32482
), sigma = 0.32482, parFixedDf = structure(list(Estimate = c(lCl = 1.38762756290559,
lVc = 4.22434431515962, prop.err = 0.324821255205299), SE = c(lCl = 0.0284844874821795,
lVc = 0.00856535023948189, prop.err = NA), "%RSE" = c(2.05274731085156,
0.202761650103757, NA), "Back-transformed" = c(4.00533636357709,
68.3296861177734, 0.324821255205299), "CI Lower" = c(3.78785158148638,
67.19215752188, NA), "CI Upper" = c(4.23530833779333, 69.4864724865111,
NA), "BSV(CV%)" = c(30.9559754801443, 0.00621142263183467, NA
), "Shrink(SD)%" = c(0.995566706208817, 99.7751022276667, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "prop.err")), omega = structure(c(3.858177e-09, 0, 0,
0.09150955), .Dim = c(2L, 2L), .Dimnames = list(c("eta.Vc", "eta.Cl"
), c("eta.Vc", "eta.Cl"))), time = structure(list(nlme = 266.653,
setup = 0.168763000000058, table = 0.0730000000003201, cwres = 0.252000000000407,
other = 0.142236999999625), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = c(21400.863721948, 21378.648427807
), AIC = c(25593.8719250957, 25571.6566309547), BIC = c(25622.5227990719,
25600.3075049309), "Log-likelihood" = c(-12791.9359625479,
-12780.8283154773), "Condition Number" = c(11.0592727026166,
11.0592727026166)), 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.