This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # | |
| # Reply to Weissman 2024 | |
| # | |
| # Code to draw the spatial locations of source-linked infections and | |
| # secondary++ infections, and estimate median distance to the source (origin) | |
| # | |
| # Updates: | |
| # ======== | |
| # | |
| # This TOY MODEL is just meant to rebut Weissman's claim that |
Valexandre
/ Carte_vaccination_communes.R
Last active
November 8, 2021 05:30
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(sf) | |
| #import des données spatiales | |
| ContoursCommunes<-st_read("https://raw.githubusercontent.com/Valexandre/france-geojson/raw/master/communes.geojson")%>%st_transform(crs2154) | |
| arr<-st_read("https://raw.githubusercontent.com/Valexandre/france-geojson/master/arrondissements-millesimes0.geojson")%>%st_transform(crs=2154) | |
| DepsMetro<-st_read("https://raw.githubusercontent.com/Valexandre/france-geojson/master/departements.geojson")%>% | |
| filter(nchar(code)==2)%>% | |
| st_transform(crs=2154) |