tests/testthat/helper-mice.R

In insightsengineering/rbmi: Reference Based Multiple Imputation

mice_res1 <-
    list(
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 0.495639147566121
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 98.1863703534555
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 197.263709795315
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 296.344400478387
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 395.414750186449
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 494.471936276293
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 593.515007686017
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 692.543555686203
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 791.557376607822
        ),
        list(
            est_point = -0.0371910999889995,
            var_t = 101.041208835068,
            df = 890.556358423296
        )
    )

mice_res2 <- list(
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 0.499949999974752
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 99.0477855475056
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 199.009504823046
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 298.989825838631
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 398.974933921111
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 498.961978423644
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 598.94999654498
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 698.938572530034
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 798.927497467046
    ),
    list(
        est_point = 0,
        var_t = 100.159995372935,
        df = 898.916654883089
    )
)


mice_res3 <-
    list(
        est_point = -0.0371910999889995,
        var_t = 101.041208835068,
        df = 1301577.44774754
    )