expected_values[[runno]] <- list(lik = c(-26821.01, 53652.03, 53684.28), param = c(1.3593,
4.1966, 0.20503), stdev_param = c(0.31128, 0.27133, 0.20503),
sigma = 0.20503, parFixedDf = structure(list(Estimate = c(lCl = 1.3592642285684,
lVc = 4.19659445920771, prop.err = 0.205029165643455), SE = c(lCl = 0.0249672923632326,
lVc = 0.0288650410723395, prop.err = NA), "%RSE" = c(1.83682405808093,
0.687820597222754, NA), "Back-transformed" = c(3.89332764843399,
66.4596142859723, 0.205029165643455), "CI Lower" = c(3.70739411425556,
62.8040786671077, NA), "CI Upper" = c(4.08858613649287, 70.3279217652699,
NA), "BSV(CV%)" = c(27.6403610743018, 31.8970937286704, NA
), "Shrink(SD)%" = c(0.343816606900871, 1.1112142178432,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.09689298, 0, 0, 0.07362117), .Dim = c(2L,
2L), .Dimnames = list(c("eta.Vc", "eta.Cl"), c("eta.Vc",
"eta.Cl"))), time = structure(list(nlme = 35.1190000000006,
setup = 0.186567000001077, table = 0.230999999999767,
cwres = 0.440000000000509, other = 0.154432999999273), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = c(45049.9506297033, 45030.9955090177
), AIC = c(53652.025915167, 53633.0707944813), BIC = c(53684.2758373756,
53665.32071669), "Log-likelihood" = c(-26821.0129575835,
-26811.5353972407), "Condition Number" = c(1.33660002822157,
1.33660002822157)), 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.