R Under development (unstable) (2023-09-11 r85126 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(mpindex)
> 
> specs_file <- system.file("extdata", "global-mpi-specs.csv", package = "mpindex")
> mpi_specs <- define_mpi_specs(specs_file, .uid = 'uuid')
> deprivation_profile <- list()
> 
> deprivation_profile$nutrition <- df_household_roster |>
+   define_deprivation(
+     .indicator = nutrition,
+     .cutoff = undernourished == 1 & age < 70,
+     .collapse = TRUE,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$child_mortality <- df_household |>
+   define_deprivation(
+     .indicator = child_mortality,
+     .cutoff = with_child_died == 1,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$year_schooling <- df_household_roster |>
+   define_deprivation(
+     .indicator = year_schooling,
+     .cutoff = completed_6yrs_schooling == 2,
+     .collapse = TRUE,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$school_attendance <- df_household_roster |>
+   define_deprivation(
+     .indicator = school_attendance,
+     .cutoff = attending_school == 2 & age %in% c(5:24),
+     .collapse = TRUE,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$cooking_fuel <- df_household |>
+   define_deprivation(
+     .indicator = cooking_fuel,
+     .cutoff = cooking_fuel %in% c(4:6, 9),
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$sanitation <- df_household |>
+   define_deprivation(
+     .indicator = sanitation,
+     .cutoff = toilet > 1,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$drinking_water <- df_household |>
+   define_deprivation(
+     .indicator = drinking_water,
+     .cutoff = drinking_water == 2,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$electricity <- df_household |>
+   define_deprivation(
+     .indicator = electricity,
+     .cutoff = electricity == 2,
+     .mpi_specs = mpi_specs
+   )
> 
> deprivation_profile$housing <- df_household |>
+   define_deprivation(
+     .indicator = housing,
+     .cutoff = roof %in% c(5, 7, 9) | walls %in% c(5, 8, 9, 99) == 2 | floor %in% c(5, 6, 9),
+     .mpi_specs = mpi_specs
+   )
> 
> 
> deprivation_profile$assets <- df_household |>
+   dplyr::mutate_at(dplyr::vars(dplyr::starts_with('asset_')), ~ dplyr::if_else(. > 0, 1L, 0L)) |>
+   dplyr::mutate(
+     asset_phone = dplyr::if_else(
+       (asset_telephone + asset_mobile_phone) > 0,
+       1L,
+       0L
+     )
+   ) |>
+   dplyr::mutate(
+     with_hh_conveniences = (
+       asset_tv + asset_phone + asset_computer +
+         asset_animal_cart + asset_bicycle +
+         asset_motorcycle + asset_refrigerator) > 1,
+     with_mobility_assets = (asset_car + asset_truck) > 0
+   ) |>
+   define_deprivation(
+     .indicator = assets,
+     .cutoff = !(with_hh_conveniences & with_mobility_assets),
+     .mpi_specs = mpi_specs
+   )
> 
> proc.time()
   user  system elapsed 
   0.93    0.15    1.09