expected_values[[runno]] <- list(lik = c(-30881.89, 61781.78, 61839.83), param = c(7.0645,
6.0797, 4.1882, -0.1271, 0.1999), stdev_param = c(0.29207, 0.1872,
0.74345, 0.35611, NA), sigma = c(prop.err = 0.1999), parFixedDf = structure(list(
Estimate = c(lVM = 7.0644881744435, lKM = 6.07970169320902,
lVc = 4.18815494921057, lKA = -0.127102130556336, prop.err = 0.199899052505944
), SE = c(lVM = 0.0425306481856262, lKM = 0.123968228926185,
lVc = 0.0277769070252135, lKA = 0.060431670939614, prop.err = NA
), "%RSE" = c(0.602034388556061, 2.03905117688021, 0.663225390704543,
47.5457576321496, NA), "Back-transformed" = c(1169.68314449511,
436.898845384764, 65.9010878665483, 0.880643727370347, 0.199899052505944
), "CI Lower" = c(1076.13331932037, 342.656480002679, 62.4092319181964,
0.782277275428434, NA), "CI Upper" = c(1271.36539121381,
557.06111583545, 69.5883164799575, 0.991379142557857, NA),
"BSV(CV%)" = c(18.8852330647679, 85.9048517504346, 29.8413311585042,
36.770376634471, NA), "Shrink(SD)%" = c(38.7148215431209,
24.5845686069931, 4.38726695262878, 38.5591369662811, NA)), class = "data.frame", row.names = c("lVM",
"lKM", "lVc", "lKA", "prop.err")), omega = structure(c(0.0853062198553815,
0, 0, 0, 0, 0.0350439282796776, 0, 0, 0, 0, 0.552714517672253,
0, 0, 0, 0, 0.126814184925634), .Dim = c(4L, 4L), .Dimnames = list(
c("eta.Vc", "eta.VM", "eta.KM", "eta.KA"), c("eta.Vc", "eta.VM",
"eta.KM", "eta.KA"))), time = structure(list(setup = 0.175086000000058,
optimize = 167.626465, covariance = 167.626467, table = 0.322999999999865,
other = 476.707982), class = "data.frame", row.names = "elapsed"),
objDf = structure(list(OBJF = 53162.5106871655, AIC = 61781.7753579612,
BIC = 61839.8348384615, "Log-likelihood" = -30881.8876789806,
"Condition Number" = 23.3407838092694), row.names = "FOCEi", class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.