Trabajo 3 Equipo 1
Trabajo 3 Equipo 1
Trabajo 3 Equipo 1
Carrera:
Ingeniería en sistemas
Trabajo3 de Estadística
Docente:
Coordinador:
Jamill Castillo
Autores:
1. Un comerciante minorista realizó un estudio para determinar la relación que hay entre los
gastos semanales de publicidad y las ventas (ver datos en la hoja Ventas del
archivo Datos.xlsx).
costos=c(40,20,25,20,30,50,40,20,50,40,25,50)
ventas=c(385,400,395,365,475,440,490,420,560,525,480,510)
datos=data.frame(costos,ventas)
reg=lm(ventas~costos,datos)
reg
predict(reg,newdata=data.frame(costos=35))
Si los costos de publicidad fueran de 35 dólares se estima que haya unas ventas de 406
dólares.
2. Evaluar la deposición del nitrógeno de la atmósfera es una tarea importante del National
Atmospheric Deposition Program (NADP), que está asociado con muchas instituciones.
Este programa está estudiando la deposición atmosférica y su efecto sobre los cultivos
agrícolas, las aguas superficiales de los bosques y otros recursos. Los óxidos de nitrógeno
pueden tener efectos sobre el ozono atmosférico y la cantidad de nitrógeno puro que se
encuentra en el aire que respiramos. Los datos son los siguientes: (ver datos en la hoja
Óxido del archivo Datos.xlsx).
año=c(1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,
1991,1992,1993,1994,1995,1996,1997,1998,1999)
oxido=c(0.73,2.55,2.90,3.83,2.53,2.77,3.93,2.03,4.39,3.04,3.41,5.07,3.95,
3.14,3.44,3.63,4.50,3.95,5.24,3.30,4.36,3.33)
datos=data.frame(año,oxido)
reg=lm(oxido~año,datos)
reg
plot(año,oxido,type="p",pch=20,xlab="AÑOS",ylab="OXIDO DE
NITROGENO",cex.lab=0.70, cex.axis=0.70,main="AÑOS Y OXIDO DE
NITROGENO",cex.main=0.85)
abline(reg,col="skyblue")
Pasemos a analizar nuestro diagrama de puntos, cómo podemos observar con el pasar de
los años los óxidos de nitrógenos aumentan y bajan levemente, pero al final sigue
aumentando su volumen gradualmente.
Sabemos que existen diversos parámetros que pueden causar este problema, las fuentes
más comunes de óxidos de nitrógeno en la naturaleza, son la descomposición bacteriana
de nitratos orgánicos, los incendios forestales, quema de rastrojos y la actividad volcánica.
predict(reg,newdata=data.frame(año=2000))
Se estima que la deposición del óxido de nitrógeno para el año 2000 sea de 4.49.