Added project 2

Corrections to project 1
ferxohn · Feb 12, 2020 · c624f8d · c624f8d
1 parent 0475352
commit c624f8d
Show file tree

Hide file tree

Showing 27 changed files with 216 additions and 186 deletions.
diff --git a/incidencia_delictiva_nac/01_poblacion.xls → 01_incidencia_delictiva_nac/01_poblacion.xls b/incidencia_delictiva_nac/01_poblacion.xls → 01_incidencia_delictiva_nac/01_poblacion.xls
diff --git a/...nac/Estatal-Delitos - diciembre 2019.xlsb → ...nac/Estatal-Delitos - diciembre 2019.xlsb b/...nac/Estatal-Delitos - diciembre 2019.xlsb → ...nac/Estatal-Delitos - diciembre 2019.xlsb
diff --git a/...iva_nac/destdv250k_2gw/destdv250k_2gw.dbf → ...iva_nac/destdv250k_2gw/destdv250k_2gw.dbf b/...iva_nac/destdv250k_2gw/destdv250k_2gw.dbf → ...iva_nac/destdv250k_2gw/destdv250k_2gw.dbf
diff --git a/...va_nac/destdv250k_2gw/destdv250k_2gw.html → ...va_nac/destdv250k_2gw/destdv250k_2gw.html b/...va_nac/destdv250k_2gw/destdv250k_2gw.html → ...va_nac/destdv250k_2gw/destdv250k_2gw.html
diff --git a/...iva_nac/destdv250k_2gw/destdv250k_2gw.png → ...iva_nac/destdv250k_2gw/destdv250k_2gw.png b/...iva_nac/destdv250k_2gw/destdv250k_2gw.png → ...iva_nac/destdv250k_2gw/destdv250k_2gw.png
diff --git a/...iva_nac/destdv250k_2gw/destdv250k_2gw.prj → ...iva_nac/destdv250k_2gw/destdv250k_2gw.prj b/...iva_nac/destdv250k_2gw/destdv250k_2gw.prj → ...iva_nac/destdv250k_2gw/destdv250k_2gw.prj
diff --git a/...iva_nac/destdv250k_2gw/destdv250k_2gw.shp → ...iva_nac/destdv250k_2gw/destdv250k_2gw.shp b/...iva_nac/destdv250k_2gw/destdv250k_2gw.shp → ...iva_nac/destdv250k_2gw/destdv250k_2gw.shp
diff --git a/...iva_nac/destdv250k_2gw/destdv250k_2gw.shx → ...iva_nac/destdv250k_2gw/destdv250k_2gw.shx b/...iva_nac/destdv250k_2gw/destdv250k_2gw.shx → ...iva_nac/destdv250k_2gw/destdv250k_2gw.shx
diff --git a/...iva_nac/destdv250k_2gw/destdv250k_2gw.xml → ...iva_nac/destdv250k_2gw/destdv250k_2gw.xml b/...iva_nac/destdv250k_2gw/destdv250k_2gw.xml → ...iva_nac/destdv250k_2gw/destdv250k_2gw.xml
diff --git a/...a_nac/destdv250k_2gw/destdv250k_2gw_s.png → ...a_nac/destdv250k_2gw/destdv250k_2gw_s.png b/...a_nac/destdv250k_2gw/destdv250k_2gw_s.png → ...a_nac/destdv250k_2gw/destdv250k_2gw_s.png
diff --git a/...ncia_delictiva_nac/inc_delic_anio_mex.pdf → ...ncia_delictiva_nac/inc_delic_anio_mex.pdf b/...ncia_delictiva_nac/inc_delic_anio_mex.pdf → ...ncia_delictiva_nac/inc_delic_anio_mex.pdf
diff --git a/incidencia_delictiva_nac/practica_1.R → 01_incidencia_delictiva_nac/practica_1.R b/incidencia_delictiva_nac/practica_1.R → 01_incidencia_delictiva_nac/practica_1.R
@@ -6,7 +6,7 @@ library(dplyr)
 library(stringr)
 library(sf)
 library(cartography)
-setwd("incidencia_delictiva_nac/")
+setwd("01_incidencia_delictiva_nac/")
 
 # Incidencia delictiva del fuero común
 # Fuente: Secretariado Ejecutivo del Sistema Nacional de Seguridad Pública

diff --git a/incidencia_delictiva_nac/practica_1.pdf → 01_incidencia_delictiva_nac/practica_1.pdf b/incidencia_delictiva_nac/practica_1.pdf → 01_incidencia_delictiva_nac/practica_1.pdf
diff --git a/02_otec/ESTADOS/ESTADOS.dbf b/02_otec/ESTADOS/ESTADOS.dbf
diff --git a/02_otec/ESTADOS/ESTADOS.prj b/02_otec/ESTADOS/ESTADOS.prj
@@ -0,0 +1 @@
+PROJCS["North_America_Lambert_Conformal_Conic",GEOGCS["ITRF_1992",DATUM["D_ITRF_1992",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["False_Easting",2500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-102.0],PARAMETER["Standard_Parallel_1",17.5],PARAMETER["Standard_Parallel_2",29.5],PARAMETER["Latitude_Of_Origin",12.0],UNIT["Meter",1.0]]
diff --git a/02_otec/ESTADOS/ESTADOS.shp b/02_otec/ESTADOS/ESTADOS.shp
diff --git a/02_otec/ESTADOS/ESTADOS.shx b/02_otec/ESTADOS/ESTADOS.shx
diff --git a/02_otec/ESTADOS/mexico.cpg b/02_otec/ESTADOS/mexico.cpg
@@ -0,0 +1 @@
+UTF-8
diff --git a/02_otec/ESTADOS/mexico.dbf b/02_otec/ESTADOS/mexico.dbf
diff --git a/02_otec/ESTADOS/mexico.prj b/02_otec/ESTADOS/mexico.prj
@@ -0,0 +1 @@
+PROJCS["Lambert_Conformal_Conic",GEOGCS["GCS_GRS 1980(IUGG, 1980)",DATUM["D_unknown",SPHEROID["GRS80",6378137,298.257222101]],PRIMEM["Greenwich",0],UNIT["Degree",0.017453292519943295]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["standard_parallel_1",17.5],PARAMETER["standard_parallel_2",29.5],PARAMETER["latitude_of_origin",12],PARAMETER["central_meridian",-102],PARAMETER["false_easting",2500000],PARAMETER["false_northing",0],UNIT["Meter",1]]
diff --git a/02_otec/ESTADOS/mexico.qpj b/02_otec/ESTADOS/mexico.qpj
@@ -0,0 +1 @@
+PROJCS["unnamed",GEOGCS["GRS 1980(IUGG, 1980)",DATUM["unknown",SPHEROID["GRS80",6378137,298.257222101]],PRIMEM["Greenwich",0],UNIT["degree",0.0174532925199433]],PROJECTION["Lambert_Conformal_Conic_2SP"],PARAMETER["standard_parallel_1",17.5],PARAMETER["standard_parallel_2",29.5],PARAMETER["latitude_of_origin",12],PARAMETER["central_meridian",-102],PARAMETER["false_easting",2500000],PARAMETER["false_northing",0],UNIT["Meter",1]]
diff --git a/02_otec/ESTADOS/mexico.shp b/02_otec/ESTADOS/mexico.shp
diff --git a/02_otec/ESTADOS/mexico.shx b/02_otec/ESTADOS/mexico.shx
diff --git a/02_otec/PracticaOTEC.R b/02_otec/PracticaOTEC.R
@@ -0,0 +1,26 @@
+# Práctica: OTEC
+library(raster)
+library(rgdal)
+library(sf)
+library(tmap)
+
+# Polígonos estatales
+estados <- read_sf("ESTADOS/ESTADOS.shp")
+
+# Batimetría del Mar Caribe
+# Fuente: NOAA
+batimetria <- raster("etopo1_bedrock.tif")
+
+pais <- st_union(estados)
+buffer <- st_buffer(pais, dist=15000)
+
+buffer 
+
+nivel <- calc(batimetria, function(x) { if (x == -700 || x == -800 || x == -900 || x == -1000) x else 0 })
+
+tm_shape(nivel) + 
+  tm_raster() + 
+  tm_shape(pais) + 
+  tm_polygons(alpha = 0.5) + 
+  tm_shape(buffer) +
+  tm_polygons(alpha = 0.5)
diff --git a/02_otec/PracticaOTEC.pdf b/02_otec/PracticaOTEC.pdf
diff --git a/02_otec/etopo1_bedrock.tif b/02_otec/etopo1_bedrock.tif
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		PROJCS["North_America_Lambert_Conformal_Conic",GEOGCS["ITRF_1992",DATUM["D_ITRF_1992",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["False_Easting",2500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",-102.0],PARAMETER["Standard_Parallel_1",17.5],PARAMETER["Standard_Parallel_2",29.5],PARAMETER["Latitude_Of_Origin",12.0],UNIT["Meter",1.0]]
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		PROJCS["Lambert_Conformal_Conic",GEOGCS["GCS_GRS 1980(IUGG, 1980)",DATUM["D_unknown",SPHEROID["GRS80",6378137,298.257222101]],PRIMEM["Greenwich",0],UNIT["Degree",0.017453292519943295]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["standard_parallel_1",17.5],PARAMETER["standard_parallel_2",29.5],PARAMETER["latitude_of_origin",12],PARAMETER["central_meridian",-102],PARAMETER["false_easting",2500000],PARAMETER["false_northing",0],UNIT["Meter",1]]
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		PROJCS["unnamed",GEOGCS["GRS 1980(IUGG, 1980)",DATUM["unknown",SPHEROID["GRS80",6378137,298.257222101]],PRIMEM["Greenwich",0],UNIT["degree",0.0174532925199433]],PROJECTION["Lambert_Conformal_Conic_2SP"],PARAMETER["standard_parallel_1",17.5],PARAMETER["standard_parallel_2",29.5],PARAMETER["latitude_of_origin",12],PARAMETER["central_meridian",-102],PARAMETER["false_easting",2500000],PARAMETER["false_northing",0],UNIT["Meter",1]]