Nombre de JP par RHS

Introduction

Pour chaque RHS, on compte le nombre de “1” dans les variables natives jp_hors_we et jp_we, en écrasant leur valeur initiale (suite de “0” et de “1”) par la valeur calculée, puis on additionne ces 2 variables.

Code

library(dplyr)

rhs_extend <- smr_rhs$rhs %>% 
    dplyr::select(nas,no_semaine,no_um,jp_we,jp_hors_we) %>% 
    dplyr::mutate(across(c(jp_we,jp_hors_we), ~ stringr::str_count(.x,"1")),
                  nb_jour_rhs = jp_we+jp_hors_we)
rhs_extend

Commentaires

Ligne 3 : smr_rhs$rhs est un tibble des variables de la partie fixe des RHS

Ligne 5 : utilisation classique de la fonction dplyr::àcross() pour appliquer un même traitement à plusieurs variables en une seule ligne

La variable nb_jour_rhs est calculée par défaut dans tous les écrans PMSISoft SMR

Etre tenu au courant de la publication des nouveaux scripts PMSI R