expected_values[[runno]] <- list(lik = c(-12570.93, 25155.86, 25195.96), param = c(1.403,
4.2185, 0.0052118, 0.19655), stdev_param = c(0.26321, 0.28312,
0.39374, NA), sigma = c(prop.err = 0.19655), parFixedDf = structure(list(
Estimate = c(lCl = 1.40300293093855, lVc = 4.21854972132989,
lKA = 0.00521175925353973, prop.err = 0.19655213675004),
SE = c(lCl = 0.0248706143260016, lVc = 0.0269352379597769,
lKA = 0.0468649681954993, prop.err = NA), "%RSE" = c(1.77267016180531,
0.638495211365806, 899.215906100602, NA), "Back-transformed" = c(4.06739575467669,
67.934888291419, 1.00522536409558, 0.19655213675004), "CI Lower" = c(3.87388323010767,
64.4414864356093, 0.917005425152575, NA), "CI Upper" = c(4.27057483214385,
71.6176690272204, 1.10193244762208, NA), "BSV(CV%)" = c(26.7830966076743,
28.8888870179072, 40.9506501290866, NA), "Shrink(SD)%" = c(1.52424469599263,
4.05995874043965, 19.8601922071228, NA)), class = "data.frame", row.names = c("lCl",
"lVc", "lKA", "prop.err")), omega = structure(c(0.06927736231256,
0, 0, 0, 0.0801566513171043, 0, 0, 0, 0.155032212248629), .Dim = c(3L,
3L), .Dimnames = list(c("eta.Cl", "eta.Vc", "eta.KA"), c("eta.Cl",
"eta.Vc", "eta.KA"))), time = structure(list(setup = 77.743476,
optimize = 52.886757, covariance = 52.886759, table = 0.137999999999977,
other = 84.326008), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 20962.5248818647, AIC = 25155.8573308795,
BIC = 25195.9624005997, "Log-likelihood" = -12570.9286654398,
"Condition Number" = 3.73151209605502), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.