Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add small example datasets for use in examples #164

Open
njtierney opened this issue Jun 20, 2024 · 1 comment
Open

Add small example datasets for use in examples #164

njtierney opened this issue Jun 20, 2024 · 1 comment
Milestone

Comments

@njtierney
Copy link
Collaborator

E.g.,

Instead of doing

polymod_setting_data <- get_polymod_setting_data()

polymod_setting_data_small <- polymod_setting_data %>%
  lapply(FUN = function(x) x %>% filter(age_from <= 20, age_to <= 20)) |> 
  new_setting_data()

Just have a couple of smaller datasets

  • One for each home/work/school/other setting only
  • One for all settings but small

See how small I can make it but still be useful?

This way the examples can all run as well

@njtierney njtierney added this to the 0.1.0 milestone Jul 2, 2024
@njtierney
Copy link
Collaborator Author

Even better, write a function that does this:

library(conmat)
new_polymod_setting_data <- function(
    countries = c(
      "Belgium", 
      "Finland", 
      "Germany", 
      "Italy", 
      "Luxembourg", 
      "Netherlands",
      "Poland", 
      "United Kingdom"
      ),
    age_limit = 20
    ){
  polymod_setting_data <- get_polymod_setting_data(countries = countries)
  
  polymod_setting_data_clipped <- lapply(
      polymod_setting_data,
      \(x) dplyr::filter(x, age_from <= age_limit, age_to <= age_limit)) |> 
    new_setting_data() 
  
  polymod_setting_data_clipped
}

polymod_30 <- new_polymod_setting_data(age_limit = 30)
summary(polymod_30$home)
#>    setting             age_from      age_to      contacts       participants  
#>  Length:961         Min.   : 0   Min.   : 0   Min.   : 0.000   Min.   : 72.0  
#>  Class :character   1st Qu.: 7   1st Qu.: 7   1st Qu.: 2.000   1st Qu.: 86.0  
#>  Mode  :character   Median :15   Median :15   Median : 5.000   Median :122.0  
#>                     Mean   :15   Mean   :15   Mean   : 6.984   Mean   :116.3  
#>                     3rd Qu.:23   3rd Qu.:23   3rd Qu.:10.000   3rd Qu.:142.0  
#>                     Max.   :30   Max.   :30   Max.   :54.000   Max.   :159.0

Created on 2024-07-02 with reprex v2.1.0

Session info

sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  setting  value
#>  version  R version 4.4.0 (2024-04-24)
#>  os       macOS Sonoma 14.5
#>  system   aarch64, darwin20
#>  ui       X11
#>  language (EN)
#>  collate  en_US.UTF-8
#>  ctype    en_US.UTF-8
#>  tz       Australia/Hobart
#>  date     2024-07-02
#>  pandoc   3.2.1 @ /opt/homebrew/bin/ (via rmarkdown)
#> 
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  package     * version    date (UTC) lib source
#>  cli           3.6.2      2023-12-11 [1] CRAN (R 4.4.0)
#>  colorspace    2.1-0      2023-01-23 [1] CRAN (R 4.4.0)
#>  conmat      * 0.0.2.9000 2024-06-20 [1] local
#>  countrycode   1.6.0      2024-03-22 [1] CRAN (R 4.4.0)
#>  curl          5.2.1      2024-03-01 [1] CRAN (R 4.4.0)
#>  data.table    1.15.4     2024-03-30 [1] CRAN (R 4.4.0)
#>  digest        0.6.35     2024-03-11 [1] CRAN (R 4.4.0)
#>  dotCall64     1.1-1      2023-11-28 [1] CRAN (R 4.4.0)
#>  dplyr         1.1.4      2023-11-17 [1] CRAN (R 4.4.0)
#>  evaluate      0.24.0     2024-06-10 [1] CRAN (R 4.4.0)
#>  fansi         1.0.6      2023-12-08 [1] CRAN (R 4.4.0)
#>  fastmap       1.2.0      2024-05-15 [1] CRAN (R 4.4.0)
#>  fields        15.2       2023-08-17 [1] CRAN (R 4.4.0)
#>  fs            1.6.4.9000 2024-06-26 [1] Github (r-lib/fs@714990b)
#>  generics      0.1.3      2022-07-05 [1] CRAN (R 4.4.0)
#>  ggplot2       3.5.1      2024-04-23 [1] CRAN (R 4.4.0)
#>  glue          1.7.0      2024-01-09 [1] CRAN (R 4.4.0)
#>  gtable        0.3.5      2024-04-22 [1] CRAN (R 4.4.0)
#>  htmltools     0.5.8.1    2024-04-04 [1] CRAN (R 4.4.0)
#>  httr          1.4.7      2023-08-15 [1] CRAN (R 4.4.0)
#>  jsonlite      1.8.8      2023-12-04 [1] CRAN (R 4.4.0)
#>  knitr         1.47       2024-05-29 [1] CRAN (R 4.4.0)
#>  lifecycle     1.0.4      2023-11-07 [1] CRAN (R 4.4.0)
#>  lubridate     1.9.3      2023-09-27 [1] CRAN (R 4.4.0)
#>  magrittr      2.0.3      2022-03-30 [1] CRAN (R 4.4.0)
#>  maps          3.4.2      2023-12-15 [1] CRAN (R 4.4.0)
#>  munsell       0.5.1      2024-04-01 [1] CRAN (R 4.4.0)
#>  oai           0.4.0      2022-11-10 [1] CRAN (R 4.4.0)
#>  pillar        1.9.0      2023-03-22 [1] CRAN (R 4.4.0)
#>  pkgconfig     2.0.3      2019-09-22 [1] CRAN (R 4.4.0)
#>  plyr          1.8.9      2023-10-02 [1] CRAN (R 4.4.0)
#>  purrr         1.0.2      2023-08-10 [1] CRAN (R 4.4.0)
#>  R.cache       0.16.0     2022-07-21 [1] CRAN (R 4.4.0)
#>  R.methodsS3   1.8.2      2022-06-13 [1] CRAN (R 4.4.0)
#>  R.oo          1.26.0     2024-01-24 [1] CRAN (R 4.4.0)
#>  R.utils       2.12.3     2023-11-18 [1] CRAN (R 4.4.0)
#>  R6            2.5.1      2021-08-19 [1] CRAN (R 4.4.0)
#>  Rcpp          1.0.12     2024-01-09 [1] CRAN (R 4.4.0)
#>  reprex        2.1.0      2024-01-11 [1] CRAN (R 4.4.0)
#>  rlang         1.1.4      2024-06-04 [1] CRAN (R 4.4.0)
#>  rmarkdown     2.27       2024-05-17 [1] CRAN (R 4.4.0)
#>  rstudioapi    0.16.0     2024-03-24 [1] CRAN (R 4.4.0)
#>  scales        1.3.0      2023-11-28 [1] CRAN (R 4.4.0)
#>  sessioninfo   1.2.2      2021-12-06 [1] CRAN (R 4.4.0)
#>  socialmixr    0.3.2      2024-04-18 [1] CRAN (R 4.4.0)
#>  spam          2.10-0     2023-10-23 [1] CRAN (R 4.4.0)
#>  stringi       1.8.4      2024-05-06 [1] CRAN (R 4.4.0)
#>  stringr       1.5.1      2023-11-14 [1] CRAN (R 4.4.0)
#>  styler        1.10.3     2024-04-07 [1] CRAN (R 4.4.0)
#>  tibble        3.2.1      2023-03-20 [1] CRAN (R 4.4.0)
#>  tidyr         1.3.1      2024-01-24 [1] CRAN (R 4.4.0)
#>  tidyselect    1.2.1      2024-03-11 [1] CRAN (R 4.4.0)
#>  timechange    0.3.0      2024-01-18 [1] CRAN (R 4.4.0)
#>  utf8          1.2.4      2023-10-22 [1] CRAN (R 4.4.0)
#>  vctrs         0.6.5      2023-12-01 [1] CRAN (R 4.4.0)
#>  viridisLite   0.4.2      2023-05-02 [1] CRAN (R 4.4.0)
#>  withr         3.0.0      2024-01-16 [1] CRAN (R 4.4.0)
#>  wpp2017       1.2-3      2020-02-10 [1] CRAN (R 4.4.0)
#>  xfun          0.45       2024-06-16 [1] CRAN (R 4.4.0)
#>  xml2          1.3.6      2023-12-04 [1] CRAN (R 4.4.0)
#>  yaml          2.3.8      2023-12-11 [1] CRAN (R 4.4.0)
#> 
#>  [1] /Users/nick/Library/R/arm64/4.4/library
#>  [2] /Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/library
#> 
#> ──────────────────────────────────────────────────────────────────────────────

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant