U2A1

Andrea Felix

28/10/2020

¿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?

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?

Desechos en Mexico

*Importar y extraer datos

setwd("~/PROBABILIDAD")
library(pacman)
library(modeest)
library(fdth)
## 
## Attaching package: 'fdth'
## The following object is masked from 'package:modeest':
## 
##     mfv
## The following objects are masked from 'package:stats':
## 
##     sd, var
library(readr)
library(DT)

dbasura <-read_csv("basuramx.csv")
## Parsed with column specification:
## cols(
##   anio = col_double(),
##   basura = col_double()
## )

Tabla de datos

datatable(dbasura)

Tablas de distribucion de frecuencia

tdist <-fdt(dbasura$basura, breaks = "Sturges")
tdist
##           Class limits f   rf rf(%) cf  cf(%)
##  [21747.835,25210.492) 1 0.05  4.76  1   4.76
##  [25210.492,28673.149) 1 0.05  4.76  2   9.52
##  [28673.149,32135.806) 8 0.38 38.10 10  47.62
##  [32135.806,35598.463) 4 0.19 19.05 14  66.67
##   [35598.463,39061.12) 4 0.19 19.05 18  85.71
##   [39061.12,42523.777) 3 0.14 14.29 21 100.00

Graficas (poligonos) de distribucion de frecuencia

#Basura (absoluto)
plot(tdist, type ="fp", col="red")

#Basura (relativo)
plot(tdist, type ="rfp", col="orange")

#Basura (acumulado)
plot(tdist, type ="cfp", col="green")

Regresion lineal (minimos cuadrados)

rbasura <- lm(anio ~ basura, data=dbasura)
summary(rbasura)
## 
## Call:
## lm(formula = anio ~ basura, data = dbasura)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2066 -0.4937  0.5899  1.0825  3.8970 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 1.961e+03  3.072e+00  638.46  < 2e-16 ***
## basura      1.211e-03  9.096e-05   13.32 4.38e-11 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.98 on 19 degrees of freedom
## Multiple R-squared:  0.9032, Adjusted R-squared:  0.8981 
## F-statistic: 177.4 on 1 and 19 DF,  p-value: 4.376e-11
# Grafica
plot(dbasura$basura, dbasura$anio, xlab="Basura", ylab = "Año")
abline(rbasura)

Residuos

par(mfrow= c(1,1))
plot(rbasura)

Confianza

confint(rbasura)
##                    2.5 %       97.5 %
## (Intercept) 1.955063e+03 1.967923e+03
## basura      1.020961e-03 1.401725e-03

Conclusion

¿Cuáles serían los pasos?

1. Plantear una pregunta: ¿Cómo es el problema de la basura en México? Uno de los problemas que se enfrenta en México, es que la infraestructura no es suficiente para procesar y reciclar toda la basura generada en las ciudades, a pesar de ser un negocio sumamente lucrativo.

México es el país número 10 en el mundo, pero en generar basura. El problema es que los desechos (orgánicos, inorgánicos, líquidos, etc.) si no son debidamente tratados, pueden ocasionar problemas de salud, amén de la contaminación ambiental y los malos olores que despiden.

Según estimaciones oficiales, los mexicanos producimos anualmente más 30 millones de toneladas de basura y de este total, 25% va a dar directamente a las calles.

2. Plantear hipótesis h0: El problema no solamente es grave, va en aumento. Como dicho anteriormente Mexico realmente tiene un problema si se habla del tema de la basura, es el numero 10 en el mundo generandola pero no esta ni cerca de eso para manejarla de manera correcta. Esta hipotesis fue creada a partir de las graficas y relaciones que tenemos de años anteriores y la cantidad de basura que se documento durante los años.

3. Recabar datos: ¿qué datos necesitamos? Se necesitan datos como los que ya tenemos, estudios anteriores sobre la basura y su paradero, e incluso la informacion sobre como las empresas o organizaciones dedicadas a la recoleccion de esta han ido evolucionando para su manejo.