Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Taller Intervalos

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 13

"Taller intervalos"

Oscar Jimenez, Felipe Achury, maría Blanco

---

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

¿Cuál es la mejor estimación de la media poblacional? Determine un intervalo de confianza de


95%. Interprete el resultado. ¿Concluiría de forma razonable que la media poblacional es de $50 o
de $60?

```{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)

d= qt(0.025, 19, lower.tail = FALSE)

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.

Calcule el valor de la proporción de la población. Calcule el error estándar de la proporción

valor de la proporción

```{r}

P=300/400

```

Error estandar de la proporción

```{r}

err.estA = sqrt(P*(1-P)/400)

err.estA

```

b. Construya el intervalo de confianza de 99% de la proporción poblacional.

```{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)

```

c. Interprete sus resultados


3) En una investigación sobre los negocios pequeños que tienen un sitio en la Web se encontró
que la cantidad promedio que se gasta en un sitio es 11500 por año. Dada una muestra de 60
negocios y una desviación estándar σ= 4000, ¿cuál es el margen de error? Use 95% de confianza.
¿Qué recomendaría si el estudio requiere un margen de error de $500?

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)

```

500=4000/(√n) (√n)=4000/500 (√n)=8

```{r}

N= 8^2

N
```

Si este estudio requiere un margen de error de 500 se neesitaría aumentar el numero de la


numera a 64

4) El consumo de las mujeres en edad de tomar bebidas alcohólicas ha aumentado en el Reino


Unido, Estados Unidos y Europa (The Wall Street Journal, 15 de febrero de 2006). Datos (de
consumo anual en litros) reportados por The Wall Street Journal hallados en una muestra de 20
mujeres jóvenes europeas son:

266, 82, 199, 174, 97, 170, 222, 115, 130, 169, 164, 102, 113, 171, 0, 93, 0, 93, 110, 130

Suponga que la población es más o menos simétrica. Proporcione un intervalo de confianza de


95% para el consumo medio anual de bebidas alcohólicas entre las mujeres europeas jóvenes

```{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.

a. ¿De qué tamaño debe ser la muestra que se requiere?

```{r}

qnorm(1-(0.05/2))

```

```{r}

N=(1.96^2*0.24)/(0.04^4)

```

LA MUESTRA REQUERIDA ES DE 360150 PERSONAS

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

```

el tamaño de la muestra debe ser de aproximadamente 600

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.

a. Desarrolle la estadística descriptiva adecuada para resumir los datos.

```{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}

mediedad2=mean(Professional$`Household Income ($)`)

d=qt(0.025,409)

ded=sd(Professional$`Household Income ($)`)

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

```

b. Con 99% de confianza, ¿cuál es el margen de error?

```{r}

si=sqrt((35^2/40)+(20^2/30))

si

```

```{r}

Z=qnorm(1-(0.01/2))

e=si*Z

e
```

con un 98% confianza el margen de error es de 17.07803

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)

Earnings2005 <- read_excel("Earnings2005.xlsx")

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.

10. En una encuesta de BusinessWeek/Harris se pidió a los ejecutivos de empresas grandes su


opinión acerca de cómo veían las perspectivas económicas para el futuro. Una de las preguntas
era: ¿Piensa usted que en los próximos 12 meses aumentará en su empresa el número de
empleados de tiempo completo? En la encuesta actual, 220 de 400 ejecutivos respondieron Sí,
mientras que en la realizada el año anterior, 192 de 400 respondieron en el mismo sentido.
Encuentre un intervalo de 95% de confianza para estimar la diferencia entre las proporciones en
estas dos encuestas. ¿Cuál es su interpretación de la estimación por intervalo?

```{r}

pac=220/400

pas=192/400

k=(pac-pas)

aph=0.05

q=aph/2

m=qnorm(q, lower.tail = FALSE)

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

También podría gustarte