expected_values[[runno]] <- list(lik = c(-38537.88, 77085.75, 77119.99), param = c(1.3613,
4.2008, 0.20304), stdev_param = c(0.30991, 0.26971, 0.20304),
sigma = 0.20304, parFixedDf = structure(list(Estimate = c(lCl = 1.36126410815359,
lVc = 4.20080213079947, prop.err = 0.203035055830121), SE = c(lCl = 0.0247510454911196,
lVc = 0.0285266377593399, prop.err = NA), "%RSE" = c(1.81823977748828,
0.679075968615329, NA), "Back-transformed" = c(3.90112162582699,
66.7398436601473, 0.203035055830121), "CI Lower" = c(3.71639068160792,
63.1107391861988, NA), "CI Upper" = c(4.09503500662921, 70.5776352680552,
NA), "BSV(CV%)" = c(27.4692481644103, 31.7504947754946, NA
), "Shrink(SD)%" = c(0.0887337889650119, 0.391260572620766,
NA)), class = "data.frame", row.names = c("lCl", "lVc", "prop.err"
)), omega = structure(c(0.09604572, 0, 0, 0.07274472), .Dim = c(2L,
2L), .Dimnames = list(c("eta.Vc", "eta.Cl"), c("eta.Vc",
"eta.Cl"))), time = structure(list(nlme = 35.9840000000004,
setup = 0.189199999998443, table = 0.434999999999491,
cwres = 0.65099999999984, other = 0.159800000001717), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = c(64300.6708103861, 64281.8965424783
), AIC = c(77085.7542989975, 77066.9800310897), BIC = c(77119.987503063,
77101.2132351552), "Log-likelihood" = c(-38537.8771494987,
-38528.4900155448), "Condition Number" = c(1.32835476483897,
1.32835476483897)), 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.