setwd("~/1 EA1011/unidad II")
library(pacman)
p_load("prettydoc", "readr","tidyverse","DT")

Problemática de la basura en México

library(pacman)
p_load("prettydoc", "readr","tidyverse","DT")

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

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?

Análisis

LEER DATOS Y PRESENTAR TABLA

basuramx <- read.csv("basura.csv")
datatable(basuramx)

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

basura <- basuramx$basura
tiempo <- basuramx$anio

plot(tiempo,basura,col='red',main='Producción de basura a lo largo del tiempo en México',type='p', xlab='año',ylab='basura generada (millones de toneladas)')

modelolinealbasuramx <- lm(basura ~ tiempo)

abline(modelolinealbasuramx,col='black',lwd=2)

summary(modelolinealbasuramx)
## 
## Call:
## lm(formula = basura ~ tiempo)
## 
## 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 ***
## tiempo       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

Ecuaución de la recta

ecuacion de la recta

\[ Y=-1.344e+06+6.882e+02x \]

preguntas

1.- ¿Cómo ha aumentado la producción de basura en México? a traves de los datos estadisticos proporcionados se puede observar que se tieneuna R2=.8951, lo cual indica que tiene un tipo de comportamiento lineal, que a conforme el paso del tiempo se esta aumentando la cantidad de basura de manera general entre sus alti bajas, pero siendo especifico del año 1995 a aproximadamente 1998 se tuvo una cantidad muy por encima de lo normal lo cual se pudo deber algun tipo de insdustria implementada que carecia de algun tipo de regulacion,posteriormente de 200-2005se observa una baja en la basura producida y del 2005 al 2011 se o0bserva una ligera tendencia al aumento de basura respecto al tiempo. .

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

#Comparativa de rellenos disponibles vs basura generada

rellenos <- basuramx$rellenos

plot(basura,rellenos,col='black',main='Relación entre basura generada y número de rellenos',type='p', xlab='Basura generada',ylab='# de rellenos')


modelolinealbasuramx2 <- lm(rellenos ~ basura)

abline(modelolinealbasuramx2,col='brown',lwd=3)

se puede observar que de manera general conforme al paso del tiempo se va creando un aumento de estos debido al crecimiento y desecho por parte de las industrias y todo tipo de generadores de basura, mas no se puedde dar una afirmacion como tal debido a que no se sabe la capacidad de almacenaje de estos rellenadores.

¿Es posible usar la distribución normal para predecir la probabilidad de incremento de generación de basura?

Valor máximo

max(basuramx$basura)
## [1] 41062.5

Media

mean(basuramx$basura)
## [1] 34153.28

Desviación estadar

sd(basuramx$basura)
## [1] 3659.721

Probabildad

pnorm(45000, mean=34153.28, sd=3659.721 , lower.tail = TRUE)
## [1] 0.9984807

En base a los calculos estadisticos se puede decir que existe un 99.84807% de probabilidad de que sea 45000 millones de toneladas la cantidad de basura.

¿Es la distribución normal la mejor manera de predecir probabilidad para estos datos?

Sí, para este caso el que se vuelva a producir cierto evento, en este caso la basura respecto al tiempo.

¿Los datos son normales?

Sí

¿Que distribución se ajusta mejor a estos datos?

la distribucion normal seria una opcion debido a que es una distribucion de variables continuas, se va evaluando continuamente la basura producida contra el tiempo, marcando mediante tendencias el comportamiento que tendria. En este caso se observa que conforme pasa el tiempo y aumenta ligeramente mas la csntidad de basura producida cpontra el paso de los años por lo que realmente no se tiene una verdadera solucion a la problematica la cual apesar de todo lo que se dice en los medios y sanciones que se dan no se le ve un efecto positivo.