U2A1

---

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?

¿A dónde va toda esa basura?

Estadísticas ambientales:

https://enactusmexico.com.mx/mundosinresiduos/wp-content/uploads/2019/09/CTEIERSP_Sesio_n_abril_5__2018__RESIDUOS_SOLIDOS.pdf

Si queremos analizar este problema de manera científica y usando la probabilidad y estadística

¿Cuáles serían los pasos?

• Plantear una pregunta: ¿Cómo es el problema de la basura en México? Plantear hipótesis h0: El problema no solamente es grave, va en aumento. Recabar datos: ¿qué datos necesitamos? https://datos.gob.mx/busca/dataset/indicadores-basicos-del-desempeno-ambiental--residuos-solidos

Primer vistazo a los datos:

Encontrar 3 lugares en Ciudad Obregón que sean tiraderos intraurbanos

https://www.google.com.mx/maps/@27.5375444,-109.945326,3a,15y,261.05h,84.74t/data=!3m9!1e1!3m7!1s9i-P9YCSFyDI28_Nx5jWzg!2e0!7i16384!8i8192!9m2!1b1!2i23

setwd("~/3er Semestre/ProbYEst")
library(readr)
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(ggplot2)
library(DT)
basuramx <- read_csv("basuramx.csv")

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

Tabla de datos

datatable(basuramx)

Tabla de distribución de frecuencia

dist <- fdt(basuramx$basura, breaks = "Sturges")
dist

##           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

Poligonos de distribución de frecuencia

Poligono acumulado

plot(dist, type= "cfp")

Diagrama de dispersión

ggplot(data = basuramx, aes(x = basuramx$anio, y = basuramx$basura)) + 
  geom_point(colour = "brown") +
  ggtitle("Diagrama de dispersión") 

Regresión lineal

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

## 
## Call:
## lm(formula = anio ~ basura, data = basuramx)
## 
## 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

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

Residuos

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

Intervalo de confianza

confint(regresionBasura)

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

Conclusión

¿Cómo es el problema de la basura en México?

Como podemos ver el problema de la basura en mexico es muy grave ya que somos el 1er lugar en la America Latina que genera más basura y como vemos en la ciudad se generan muchos lugares donde se acumulan basura y supongo que debe ser así en varias ciudades.

Plantear hipótesis h0: El problema no solamente es grave, va en aumento.

El problema va en aumento, porque cada vez hay mas personas en Mexico también entonces se generan mas productos y con ello mas basura y la gente no tiene consciencia de poner la basura en su lugar, muchos dicen “solamente es 1 basura” pero si 1000 personas dicen eso se hacen 1000 basuras.

Recabar datos: ¿qué datos necesitamos?

se necesitan datos, como los que ya conseguimos, donde muestre los años y la basura recaudada en esos años, donde se podra ver la diferencia de cada año y como va creciendo la basura continuamente, así poder ver los valores de dispercion y comparar.