In zozlak/MLAKdane: Pakiet do zlaczania danych z rejestrow ZUS i uczelni

Porówanie wyników generowanych przez wersje 0.7.0 i 0.7.x+

library(dplyr)
library(MLAK)
devtools::load_all(".")
wszystkoS = wczytajDane('../dane/archiwum/2016-09_2015_0.9.2.RData')
#miesieczneS = wczytajDane('../dane/archiwum/2016-09_2014_0.9.2_mies.RData')
#miesieczneS = miesieczneS %>% rename(ID_ZDAU = ID_ZDAU_M, OKRES = OKRES_M) %>% semi_join(wszystkoS %>% select(ID_ZDAU))
wszystko = wczytajDane('../dane/ZUS_2016-09/2015/2015_dane.RData')
#miesieczne = wczytajDane('../dane/ZUS_2016-09/2014/2014_dane_mies.RData')
#miesieczne = miesieczne %>% rename(ID_ZDAU = ID_ZDAU_M, OKRES = OKRES_M) %>% semi_join(wszystko %>% select(ID_ZDAU))

agreguj_do_miesiecy->agreguj_do_okresu

porownaj(wszystkoS, wszystko, 'NM_E', 'NM_E') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'NPM_E', 'NPM_E') %>% group_by(d) %>% summarize(n = n())

porownaj(wszystkoS, wszystko, 'IF_X_S', 'IF_X_S') %>% group_by(d) %>% summarize(n = n())
porownaj(wszystkoS, wszystko, 'IF_E_S', 'IF_E_S') %>% group_by(d) %>% summarize(n = n())

porownaj(wszystkoS, wszystko, 'EZ_Z_P1', 'EZ_Z_P1') %>% group_by(d) %>% summarize(n = n()) %>% filter(abs(d) > 0.01 | is.na(d) | is.nan(d)) 
porownaj(wszystkoS, wszystko, 'EZ_Z', 'EZ_Z') %>% group_by(d) %>% summarize(n = n()) %>% filter(abs(d) > 0.01 | is.na(d) | is.nan(d))

porownaj(wszystkoS, wszystko, 'SZ_X_S', 'SZ_X_S') %>% group_by(d) %>% summarize(n = n()) %>% filter(abs(d) > 0.01 | is.na(d) | is.nan(d)) 
porownaj(wszystkoS, wszystko, 'SZ_E_S', 'SZ_E_S') %>% group_by(d) %>% summarize(n = n()) %>% filter(abs(d) > 0.01 | is.na(d) | is.nan(d))

porownaj(wszystkoS, wszystko, 'WZG_EZ_Z_P1', 'WZG_EZ_Z_P1') %>% arrange(desc(abs(d))) %>% filter(abs(d) > 0.0001 | is.na(d)) %>% arrange(desc(abs(d)))
porownaj(wszystkoS, wszystko, 'WZG_EZ_Z', 'WZG_EZ_Z') %>% arrange(desc(abs(d))) %>% filter(abs(d) > 0.0001 | is.na(d)) %>% arrange(desc(abs(d)))
porownaj(wszystkoS, wszystko, 'WZG_RYZBEZ_P1', 'WZG_RYZBEZ_P1') %>% filter(abs(d) > 0.001 | is.na(d)) %>% arrange(desc(abs(d)))
porownaj(wszystkoS, wszystko, 'WZG_RYZBEZ', 'WZG_RYZBEZ') %>% filter(abs(d) > 0.0001 | is.na(d)) %>% arrange(desc(abs(d)))

oblicz_zmienne_pochodne

porownaj(wszystkoS, wszystko, 'PM_E_S', 'PM_E_S') %>% arrange(desc(abs(d))) %>% filter(abs(d) > 0.0001 | is.na(d)) %>% arrange(desc(abs(d)))
porownaj(wszystkoS, wszystko, 'PM_E_N_P1', 'PM_E_N_P1') %>% arrange(desc(abs(d))) %>% filter(abs(d) > 0.0001 | is.na(d)) %>% arrange(desc(abs(d)))

oblicz_okienko

porownaj(wszystkoS, wszystko, 'LEN', 'LEN') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'LEN_P1', 'LEN_P1') %>% group_by(d) %>% summarize(n = n())

oblicz_pracodawcy

porownaj(wszystkoS, wszystko, 'NPN_E', 'NPN_E') %>% group_by(d) %>% summarize(n = n())
porownaj(wszystkoS, wszystko, 'NPM_E_S', 'NPM_E_S') %>% group_by(d) %>% summarize(n = n())

oblicz_stale

porownaj(wszystkoS, wszystko, 'IF_ZUS', 'IF_ZUS') %>% group_by(d) %>% summarize(n = n())
porownaj(wszystkoS, wszystko, 'DOSW_ES', 'DOSW_ES') %>% group_by(d) %>% summarize(n = n())

oblicz_studyp

porownaj(wszystkoS, wszystko, 'KONT', 'KONT') %>% group_by(d) %>% summarize(n = n())

oblicz_zamieszkanie

porownaj(wszystkoS, wszystko, 'JPDZAM0', 'JPDZAM0') %>% group_by(d) %>% summarize(n = n())
porownaj(wszystkoS, wszystko, 'JPDZAM0', 'JPDZAM0') %>% group_by(is.na(a), is.na(b)) %>% summarize(n = n())

porownaj(wszystkoS, wszystko, 'JPDZAM1', 'JPDZAM1') %>% group_by(d) %>% summarize(n = n())
porownaj(wszystkoS, wszystko, 'JPDZAM1', 'JPDZAM1') %>% group_by(is.na(a), is.na(b)) %>% summarize(n = n())

oblicz_zmienne_czasowe

porownaj(wszystkoS, wszystko, 'TP_M', 'TP_M') %>% group_by(d) %>% summarize(n = n())

oblicz_utrata_etatu

porownaj(wszystkoS, wszystko, 'UP_E', 'UP_E') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'UP_E_P1', 'UP_E_P1') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'UP_ENL', 'UP_ENL') %>% group_by(d) %>% summarize(n = n())
porownaj(wszystkoS, wszystko, 'UP_EL', 'UP_EL') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'UP_EL_P1', 'UP_EL_P1') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'UP_E_N', 'UP_E_N') %>% group_by(d) %>% summarize(n = n()) 
porownaj(wszystkoS, wszystko, 'ENUP_E_S', 'ENUP_E_S') %>% group_by(d) %>% summarize(n = n())

miesięczne

porownaj(miesieczneS, miesieczne, 'WZG_RYZBEZ_M', 'WZG_RYZBEZ_M', c('ID_ZDAU', 'OKRES')) %>% filter(abs(d) > 0.0001) 
porownaj(miesieczneS, miesieczne, 'WZG_EZ_Z_M', 'WZG_EZ_Z_M', c('ID_ZDAU', 'OKRES')) %>% filter(abs(d) > 0.0001)