Extract table of estimated model parameters
Examples
# read example ABC result with an inferred joint posterior distribution
abc_res <- readRDS(system.file("examples/basics_abc.rds", package = "demografr"))
extract_summary(abc_res)
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Warning: Selecting bandwidth *not* using 'weights'
#> Ne_A Ne_B Ne_C Ne_D T_AB
#> Min.: 1609.744 682.6193 7389.026 1846.029 -96.82908
#> Weighted 2.5 % Perc.: 1812.239 729.5846 7585.374 2691.913 1242.73702
#> Weighted Median: 2030.741 837.2673 8588.420 3785.385 1907.90411
#> Weighted Mean: 2019.638 841.6564 8674.207 3805.943 1949.07359
#> Weighted Mode: 2049.985 847.0022 8469.365 3642.722 1911.88919
#> Weighted 97.5 % Perc.: 2204.442 979.8260 9543.851 4742.401 2690.25909
#> Max.: 2281.020 1038.0898 10965.790 5915.021 2921.08324
#> T_BC T_CD gf_BC
#> Min.: 5272.336 6608.244 -0.02143034
#> Weighted 2.5 % Perc.: 5630.022 7105.185 0.03373237
#> Weighted Median: 6133.605 7829.842 0.09864958
#> Weighted Mean: 6110.468 7814.700 0.10241672
#> Weighted Mode: 6236.457 7855.537 0.09655264
#> Weighted 97.5 % Perc.: 6603.022 8379.513 0.17629759
#> Max.: 6838.022 8551.676 0.21388432