expected_values[[runno]] <- list(lik = c(-31630.83, 63283.67, 63354.63), param = c(7.2065,
6.5366, 4.2863, 0.44897, 3.8581, 0.20199), stdev_param = c(0.22456,
0.70711, 0.27955, 0.48505, 0.37565, NA), sigma = c(prop.err = 0.20199),
parFixedDf = structure(list(Estimate = c(lVM = 7.20650656789906,
lKM = 6.53664524811214, lVc = 4.2863285062463, lQ = 0.448968723137457,
lVp = 3.85811162566668, prop.err = 0.201994792777332), SE = c(lVM = 0.0883590108591869,
lKM = 0.162004278681554, lVc = 0.0309469862887112, lQ = 0.103898696075835,
lVp = 0.0729918113584306, prop.err = NA), "%RSE" = c(1.22610046943934,
2.47840096153823, 0.721992872072531, 23.1416334193118, 1.89190511940715,
NA), "Back-transformed" = c(1348.17427588798, 689.968019600518,
72.6990637541147, 1.56669565510849, 47.3758035940768, 0.201994792777332
), "CI Lower" = c(1133.79545008704, 502.262402141985, 68.4205711821852,
1.27804430242419, 41.0606525572725, NA), "CI Upper" = c(1603.08799795108,
947.823022470402, 77.2451001125367, 1.92054005567731, 54.6622283475378,
NA), "BSV(CV%)" = c(22.7419909833078, 80.5430104082895, 28.5101734558154,
51.5023158431479, 38.9295039109108, NA), "Shrink(SD)%" = c(50.6714335892135,
25.1030944870893, 8.25288300281167, 45.1857764654633, 37.4551414611059,
NA)), class = "data.frame", row.names = c("lVM", "lKM", "lVc",
"lQ", "lVp", "prop.err")), omega = structure(c(0.0504267436599565,
0, 0, 0, 0, 0, 0.499997805486482, 0, 0, 0, 0, 0, 0.0781482981490606,
0, 0, 0, 0, 0, 0.23526882514107, 0, 0, 0, 0, 0, 0.141109405855708
), .Dim = c(5L, 5L), .Dimnames = list(c("eta.VM", "eta.KM",
"eta.Vc", "eta.Q", "eta.Vp"), c("eta.VM", "eta.KM", "eta.Vc",
"eta.Q", "eta.Vp"))), time = structure(list(setup = 0.167819000000247,
optimize = 108.19808, covariance = 108.198082, table = 0.302999999999884,
other = 673.687019), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 54660.4036514993, AIC = 63283.668322295,
BIC = 63354.629909573, "Log-likelihood" = -31630.8341611475,
"Condition Number" = 50.8081520633409), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.