Publications by Anna Alari

Sensitivity analysis for PM10 Air quality alerts effects on health

07.05.2020

Sensitivity analysis We exclude the Warning Alert episodes from the analysis. Propensity score mod<-gam(elipic ~ s(tempmax,k=7,bs="tp") + s(tempmoy,k=7, bs="tp") +s(lag_tempmax,k=7,bs="tp") + s(lag_tempmoy,k=7, bs="tp")+ s(lag2_tempmax,k=7,bs="tp") + s(lag2_tempmoy,k=7, bs="tp") + s(lag3_tempmax,k=7,bs="tp") + s(lag3_tempmoy,k=7, bs="tp") + Jour...

4670 sym R (24555 sym/35 pcs) 4 img 2 tbl

Differences in Differences analysis for PM10 air quality alerts system

07.04.2020

Seuil d’Information et d’Alerte pour PM10 Seuil d’Information et Alerte par année annee Seuil_Info Seuil_Alerte 2000 NA NA 2001 NA NA 2002 NA NA 2003 NA NA 2004 NA NA 2005 NA NA 2006 NA NA 2007 NA NA 2008 80 125 2009 80 125 2010 80 125 2011 80 125 2012 50 ...

5838 sym R (17588 sym/28 pcs) 4 img 11 tbl

Model & Matching Optimisation

03.04.2020

List of tested models mod1<-glm(elipic ~ ns(tempmin) + ns(tempmax) + Jours + mois + jours_fériés + Vacances + annee + lag_O3 + lag_PM10, family="binomial", data=data) mod2<-glm(elipic ~ ns(tempmin) + ns(tempmax) + Jours + mois + jours_fériés + Vacances + annee + lag_O3 + lag2_O3 + lag3_O3 + lag_PM10 + lag2_PM10 + lag3_PM10, family="binomia...

938 sym R (18211 sym/38 pcs) 2 tbl

Differences in Differences - sans canicule

12.02.2020

Seuil d’Information et d’Alerte selon les années et le polluant Les seuils réglementés pour NO2 n’ont pas changé au cours de la période observée. Le seuil d’alerte pour l’ozone a changé en 2006. La réglementation a inclut des seuils pour les PM10 seulement à partir de la fin de l’année 2007 et leur seuil d’alerte a été ...

3707 sym R (8767 sym/27 pcs) 6 img 15 tbl

Differences in Differences - test score de propension

12.02.2020

Seuil d’Information et d’Alerte selon les années et le polluant Les seuils réglementés pour NO2 n’ont pas changé au cours de la période observée. Le seuil d’alerte pour l’ozone a changé en 2006. La réglementation a inclut des seuils pour les PM10 seulement à partir de la fin de l’année 2007 et leur seuil d’alerte a été ...

3683 sym R (8596 sym/24 pcs) 6 img 15 tbl

Statistiques Descriptives Épisodes de Pics Pollution entre 2000 et 2017

21.01.2020

Episodes de dépassement du niveau d’information ou d’alerte entre 2000 et 2017 Entre 2000 et 2017, 264 jours ont été caracterisés par des pics de pollution, défini par le dépassement d’un seuil d’information (1er seuil) ou d’alerte (2ème seuil). Parmi ces 264 jours de pics de pollution, 9 ont été concernés par des dépassement...

2475 sym R (9410 sym/16 pcs) 12 img

Differences in Differences analysis for PM10 air quality alerts system

10.03.2020

Seuil d’Information et d’Alerte pour PM10 Seuil d’Information et Alerte par année annee Seuil_Info Seuil_Alerte 2000 NA NA 2001 NA NA 2002 NA NA 2003 NA NA 2004 NA NA 2005 NA NA 2006 NA NA 2007 NA NA 2008 80 125 2009 80 125 2010 80 125 2011 80 125 2012 50 ...

8196 sym R (31164 sym/56 pcs) 4 img 14 tbl

4 way decomposition, Temperature Ozone and Mortality (95 perc)

17.07.2020

Creating Database only with summer months villes_s<-list() for(i in 1:length(villes)) { villes_s[[i]]<-villes[[i]][villes[[i]]$saison=="summer",] villes_s[[i]]$temps <- ave(villes_s[[i]]$time,villes_s[[i]]$annee, FUN = seq_along) villes_s[[i]]$time<-1:nrow(villes_s[[i]]) } names(villes_s)<-cities table of N obs per months to check ...

333 sym R (3818 sym/13 pcs) 4 img 2 tbl

Mediation Analysis, Temperature Ozone and Respiratory Hospitalization (97.5 perc)

17.07.2020

Creating Database only with summer months villes_s<-list() for(i in 1:length(villes)) { villes_s[[i]]<-villes[[i]][villes[[i]]$saison=="summer",] villes_s[[i]]$temps <- ave(villes_s[[i]]$time,villes_s[[i]]$annee, FUN = seq_along) } names(villes_s)<-cities table of N obs per months to check to have only summer month for (i in 1:lengt...

287 sym R (5170 sym/7 pcs) 2 img 2 tbl

Mediation Analysis, Temperature Ozone and Cardiac Hospitalization (97.5 perc)

17.07.2020

Creating Database only with summer months villes_s<-list() for(i in 1:length(villes)) { villes_s[[i]]<-villes[[i]][villes[[i]]$saison=="summer",] villes_s[[i]]$temps <- ave(villes_s[[i]]$time,villes_s[[i]]$annee, FUN = seq_along) } names(villes_s)<-cities table of N obs per months to check to have only summer month for (i in 1:lengt...

287 sym R (5178 sym/7 pcs) 2 img 2 tbl