Taller Intervalos
Taller Intervalos
Taller Intervalos
---
1) El gerente de Inlet Square Mall, cerca de Ft.Myers, Florida, desea estimar la cantidad media que
gastan los clientes que visitan el centro comercial. Una muestra de 20 clientes revela las siguientes
cantidades en dolares.
48.16, 42.22, 46.82, 51.45, 23.78, 41.86, 54.86, 37.92, 52.64, 48.59, 50.82, 46.94, 61.83, 61.69,
49.17, 61.46, 51.35, 52.68, 58.84, 43.88
```{r}
E= c(48.16, 42.22, 46.82, 51.45, 23.78, 41.86, 54.86, 37.92, 52.64, 48.59, 50.82, 46.94, 61.83,
61.69, 49.17, 61.46, 51.35, 52.68, 58.84, 43.88)
M=mean(E)
S=sd(E)
X=S/sqrt(20)
l_i=M-d*X
l_s=M+d*X
i=c(l_i,l_s)
```
Con un 95% de confianza se estima que el intervalo de cantidades en dolares que gastan los
visitantes del centro comercial está entre 45.1302 y 53.5658 dolares. así mismo, no se rechaza la
hipotesis de la media poblacional que equivale a 50, pues este se encuentra en los intervalos
obtenidos. es por esto que no es aceptable la hipotesis que dice que la media poblacional es de 60
2) Maria Wilson considera postularse para la alcaldía de la ciudad de Bear Gulch, Montana. Antes
de solicitar la postulación, decide realizar una encuesta entre los electores de Bear Gulch. Una
muestra de 400 electores revela que 300 la apoyarían en las elecciones de noviembre.
valor de la proporción
```{r}
P=300/400
```
```{r}
err.estA = sqrt(P*(1-P)/400)
err.estA
```
```{r}
X=qnorm(0.005,lower.tail = FALSE)
p_inf=(P-X*err.estA)
p_sup=(P+X*err.estA)
i=c(p_inf,p_sup)
```
margen de error
```{r}
Mar=4000/sqrt(60)
Mar
```
```{r}
can.prom=11500
n=64
SD=4000
alp=0.05
X=qnorm(0.975)
S=X*SD
l_in=(can.prom-(S/sqrt(64)))
l_su=(can.prom+(S/sqrt(64)))
i=c(l_in,l_su)
```
```{r}
N= 8^2
N
```
266, 82, 199, 174, 97, 170, 222, 115, 130, 169, 164, 102, 113, 171, 0, 93, 0, 93, 110, 130
```{r}
EU=c(266, 82, 199, 174, 97, 170, 222, 115, 130, 169, 164, 102, 113, 171, 0, 93, 0, 93, 110, 130)
mean(EU)
```
```{r}
sd(EU)
```
```{r}
X=qnorm(0.975)
N=20
l_info=mean(EU)-X*sd(EU)/sqrt(N)
l_supe=mean(EU)+X*sd(EU)/sqrt(N)
I=c(l_info,l_supe)
```
5) Suponga que el presidente de Estados Unidos desea un cálculo de la proporción de la población
que apoya su actual política relacionada con las revisiones del sistema de seguridad social. El
presidente quiere que el cálculo se encuentre a menos de 0.04 de la proporción real. Suponga un
nivel de confianza de 95%. Los asesores políticos del presidente calculan que la proporción que
apoya la actual política es de 0.60.
```{r}
qnorm(1-(0.05/2))
```
```{r}
N=(1.96^2*0.24)/(0.04^4)
```
B. ¿De qué tamaño debe ser una muestra si no hubiera disponible ningún estimador de la
proporción que apoya la actual política?
```{r}
NE=0.5*0.5*(qnorm(0.975)/0.04)^2
NE
```
6) La revista Young Professional fue creada para un público formado por personas que se
encuentran en los 10 primeros años de su carrera profesional en negocios. En sus dos primeros
añosde publicación, la revista ha tenido bastante éxito. Ahora el editor está tratando de aumentar
subase publicitaria. Los anunciantes potenciales preguntan continuamente sobre los datos
demográficos e intereses de los suscriptores de Young Professional. Para recabar esta
información,la revista realizó un estudio sobre el perfil de sus suscriptores. Los resultados se
usarán para ayudar a elegir artículos de interés y proporcionar a los anunciantes un perfil de los
suscriptores.Como nuevo empleado de la empresa se le solicita a usted su ayuda para analizar los
resultadosde la investigación.
Elabore un informe gerencial con los resultados del estudio. Además de los resúmenes
estadísticos, analice cómo la revista puede usarlos para atraer más anunciantes. También presente
unarecomendación a los editores para que empleen los resultados en la elección de los temas
deinterés para sus suscriptores. Su informe debe contener los siguientes puntos, pero no limite su
análisis a estas áreas.
```{r}
library(readxl)
Professional = read_excel("Professional.xlsx")
View(Professional)
summary(Professional)
```
b. Muestre los intervalos de 95% de confianza para la edad promedio y el ingreso promedio por
hogar de los suscriptores.
```{r}
mediedad=mean(Professional$Age)
d=qt(0.025,409)
ded=sd(Professional$Age)
w=ded/sqrt(410)
ls=mediedad+d*w
li=mediedad-d*w
i=c(li,ls)
```
c. Encuentre intervalos de confianza de 95% para la proporción de suscriptores que tienen acceso
de banda ancha y para la proporción de éstos que tienen niños.
```{r}
d=qt(0.025,409)
w =ded/sqrt(410)
ls=mediedad2+d*w
li=mediedad2-d*w
i2=c(li,ls)
i2
```
Banda
```{r}
b=c(Professional$`Broadband Access?`)
pa=256/410
d=qnorm(0.025)
C=(pa*(1-pa))/sqrt(410)
ls=pa+d*C
li=pa-d*C
i6=c(li,ls)
i6
```
niñ
```{r}
h=c(Professional$`Have Children?`)
pn=219/410
z=qnorm(0.025)
cw=(pn*(1-pn))/sqrt(410)
ls=pn+z*cw
li=pn-z*cw
i=c(li,ls)
```
7) Se esperaba que el Día de San Valentín el gasto promedio fuera de $100.89 (USA Today, 13 de
febrero de2006). ¿Hay diferencia en las cantidades que desembolsan los hombres y las mujeres? El
gasto promedio en una muestra de 40 hombres fue de $135.67 y en una muestra de 30 mujeres
fue de $68.64. Por estudios anteriores se sabe que la desviación estándar poblacional en el
consumo de los hombres es $35 y en el de las mujeres es $20.
a. ¿Cuál es la estimación puntual de la diferencia entre el gasto medio poblacional de los hombres
y el gasto medio poblacional de las mujeres?
```{r}
es=135.67-68.64
es
```
```{r}
si=sqrt((35^2/40)+(20^2/30))
si
```
```{r}
Z=qnorm(1-(0.01/2))
e=si*Z
e
```
8) FedEx y United Parcel Service (UPS) son las dos empresas de paquetería líderes en el mundo en
cuanto a volumen e ingresos (The Wall Street Journal, 27 de enerode 2004). Según el Consejo
Internacional de Aeropuertos, las terminales áereas internacionales de Memphis (FedEx) y de
Louisville (UPS) son dos de los 10 mayores aeropuertos decarga del mundo. Las muestras
aleatorias siguientes describenlas toneladas de carga por día que pasan por estas terminales. Los
datos se registran en miles de toneladas.
Calcule la media muestral y la desviación estándar muestral para cada uno de los aeropuertos.
Memp
```{r}
mem=c(9.1, 15.1, 8.8, 10.0, 7.5, 10.5, 8.3, 9.1, 6.0, 5.8, 12.1, 9.3)
mean(mem)
```
```{r}
sd(mem)
```
Louis
```{r}
louis=c(4.7, 5.0, 4.2, 3.3, 5.5, 2.2, 4.1, 2.6, 3.4, 7.0)
mean(louis)
```
```{r}
sd(louis)
```
b. ¿Cuál es la estimación puntual de la diferencia entre las dos medias poblacionales? Interprete
este valor en términos del aeropuerto de mayor volumen y compare la diferencia de volúmenes
entre las dos terminales.
```{r}
mean(mem)-mean(louis)
```
c. el aeropuerto con mayor volumen es memphis dado que su media es de 9.3, mientras que
louisville es de 4.2
```{r}
((2.5427^2/12)+(1.4314^2/10))^2
```
```{r}
(((2.5427^2/12)^2)/11)+((1.4314/10)^2/9)
```
```{r}
0.5530414/0.02866571
```
9. En el archivo titulado Earnings 2005 se encuentran datos sobre las utilidades por acción en los
que se comparan las obtenidas en un trimestre con las del trimestre anterior. Proporcione un
intervalo de 95% de confianza para estimar la diferencia entre las medias poblacionales del
trimestre dado frente a las del trimestre anterior. ¿Las utilidades aumentaron?
```{r}
library(readxl)
View(Earnings2005)
```
```{r}
colnames(Earnings2005)
```
```{r}
View(Earnings2005)
attach(Earnings2005)
muestra=Current-Previous
df=data.frame(Earnings2005, muestra)
media=mean(muestra)
f=nrow(Earnings2005)
ds=sd(muestra)
alpha=0.05
w=alpha/2
dt=qt(w,f-1,lower.tail = FALSE)
error=ds/sqrt(f)
li=media-dt*error
ls=media+dt*error
i=c(li, ls)
```
dado el 95% del intervalo de confianza se dan los siguientes intervalos ( 0.09686498 y
0.31593502), esto quiere decir que hay un aumento trimestral segun los intervalos dados.
```{r}
pac=220/400
pas=192/400
k=(pac-pas)
aph=0.05
q=aph/2
f1=1-pac
f2=1-pas
x=sqrt((pac*f1/400)+(pas*f2/400))
ls=k+m*x
li=k-m*x
i=c(li, ls)
```
```{r}
0.0009060571*100
```
```{r}
0.1390939429*100
```
de acuerdo al 95% de confianza, entre el 0.9% y el 13.90% de los empresarios encuentados creen
que va a haber un aumento de los