U2A8

setwd("~/PYE1112ITSON")

Basura en México

Caso de estudio de la 2da unidad de la materia de probabilidad y estadística en el cual se aborda la temática del problema de la basura en México

Antecedentes

¿Qué es la basura?

El término basura se refiere a cualquier residuo inservible, a todo material no deseado y del que se tiene intención de desechar.

¿La basura es un problema?

Además de la contaminación del aire, la tierra y el agua; la mala gestión de los residuos tiene efectos perjudiciales para la salud pública (por la contaminación ambiental y por la posible transmisión de enfermedades infecciosas vehiculizadas por los roedores que los habitan) y degradación del medio ambiente en general, además de impactos paisajísticos.

Asimismo, la degradación ambiental conlleva costos sociales y económicos tales como la devaluación de propiedades, pérdida de la calidad ambiental y sus efectos en el turismo.

¿Cómo es la problemática de la basura en México?

https://www.animalpolitico.com/2018/10/mexico-genera-basura-paises-america-latina/

El planeta genera más de 2.000 millones de toneladas de basura al año, pero expertos calculan que produciremos hasta 3.400 millones en el año 2050. ¿Cómo contribuye América Latina a estas preocupantes cifras?

!(Basura)[basuralat.JPG]

Asignación sería:

Utilizando los datos proporcionados conteste a las siguientes preguntas:

library(readr)
library(DT)
basura <- read_csv("basura.csv")

## Parsed with column specification:
## cols(
##   anio = col_double(),
##   basura = col_double(),
##   rellenos = col_double()
## )

datatable(basura)

1.- ¿Cómo ha aumentado la producción de basura en México?

pairs(basura)

regresion <- lm(basura ~ anio, data = basura)
summary(regresion)

## 
## Call:
## lm(formula = basura ~ anio, data = basura)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -1355.49  -751.81  -124.62    42.68  2623.36 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -1.344e+06  1.175e+05  -11.44 8.32e-09 ***
## anio         6.882e+02  5.868e+01   11.73 5.92e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1185 on 15 degrees of freedom
## Multiple R-squared:  0.9017, Adjusted R-squared:  0.8951 
## F-statistic: 137.5 on 1 and 15 DF,  p-value: 5.915e-09

plot(basura$anio, basura$basura, xlab="Año", ylab="Basura(Tonelada")
abline(regresion)

Conclusión

Como podemos obervar la basura incrementa cada año bastante cada año mas se puede ver un bajon de produccion de basura de 1996-2000 pero desde el 2000 no ha dismiuido,personalmente no estaba enterado de la producion de basura en mexico y me sorpende demaciado, es urgente un cambio en nuestras costumbres de ser desorganizado y sucios para asi salvar el medio ambiente.

2.- ¿Los rellenos son suficientes para atender la demanda de generación de basura?

Son pocos los rellenos sasnitarions en comparacion a la generaacion de baura, como podemos obervar la generacion de basura crecemas que los rellenos sanitarios

regresion1 <- lm(basura ~ rellenos, data = basura)
summary(regresion1)

## 
## Call:
## lm(formula = basura ~ rellenos, data = basura)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -1813.9  -931.7  -156.9  1010.5  2301.5 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 27418.764    708.729   38.69  < 2e-16 ***
## rellenos       72.231      6.812   10.60  2.3e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1297 on 15 degrees of freedom
## Multiple R-squared:  0.8823, Adjusted R-squared:  0.8744 
## F-statistic: 112.4 on 1 and 15 DF,  p-value: 2.299e-08

plot(basura$rellenos, basura$basura, xlab="Rellenos sanitarios", ylab="Basura")
abline(regresion1)

Conclusión

se puede mirar que no hay suficientes y la basura segue amuentando y los rellenos no,por eso hay demaciada basura en la ciudad.

4.- Ahora, ¿Cuantos rellenos necesitaríamos para poder manejar toda esta basura?

por lo menos el doble ya que como podemos obervar la basura crece de manera brutal y para almacenarla y claseificarla ocupamos mayor espacio.

5.- ¿Qué alternativa objetiva propone para atacar este problema?

Principalmente ocupamos informar a todos los mexicanos para cambiar nuestra costumbre de querer hacer lo que queramos difundir informacion de las tres “R” para concientisar mostrar datos entendibles para todas las personas acerca del daño irreversible que le hacemos a nuestro planeta y poder cambiar esa mentalidad que tenemos “todo dura para siempre”.