R-Rstudio/Pruebas_proporcion_n_mayor_30.R at main · KillerZeus666/R-Rstudio · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
#Pruebas de hipótesis para la proporción poblacional
#p:proporción poblacional
#p:proporciónde personas que participan en actividades
#al menos dos veces por semana
#Prueba cola a derecha
#1. Ho:p=p0
#2. Ha:p>p0
p0 = 0.20
q0 =1-p0
#3a. Estadístico de prueba
x = 15 #número de éxitos o casos favorables
n = 100 #tamaño de la muestra
p_gorro = x/n #proporción muestral
q_gorro = 1-p_gorro
alpha = 0.05
z = (p_gorro-p0)/sqrt((p0*q0)/n)
z
#3b. Valorp
valorp = pnorm(z,lower.tail = FALSE)
valorp
#Método del valorp
if(valorp <= alpha){
  'Rechazo Ho'
}else{
  'No rechazo Ho'
}
#4.Región de rechazo
valor_critico = qnorm(alpha,lower.tail = FALSE)
valor_critico
if(z>=valor_critico){
  'Rechazo Ho'
}else{
  'No rechazo Ho'
}
#5. Conclusión: ....
################################
#Prueba cola izquierda
#1. Ho:p=p0
#2. Ha:p<p0
p0 = 0.20
q0 =1-p0
#3a. Estadístico de prueba
x = 15 #número de éxitos o casos favorables
n = 100 #tamaño de la muestra
p_gorro = x/n #proporción muestral
q_gorro = 1-p_gorro
alpha = 0.05
z = (p_gorro-p0)/sqrt((p0*q0)/n)
z
#3b. Valorp
valorp = pnorm(z,lower.tail = TRUE)
valorp
#Método del valorp
if(valorp <= alpha){
  'Rechazo Ho'
}else{
  'No rechazo Ho'
}
#4.Región de rechazo
valor_critico = qnorm(alpha,lower.tail = TRUE)
valor_critico
if(z<=valor_critico){
  'Rechazo Ho'
}else{
  'No rechazo Ho'
}
#5. Conclusión: no rechazo Ho, los datos no presentan
#suficiente evidencia para indicar que el porcentaje
#de participación es menor a 20%
########################################
#Prueba cola a dos colas
#1. Ho:p=p0
#2. Ha:p diferente a p0
p0 = 0.20
q0 =1-p0
#3a. Estadístico de prueba
x = 15 #número de éxitos o casos favorables
n = 100 #tamaño de la muestra
p_gorro = x/n #proporción muestral
q_gorro = 1-p_gorro
alpha = 0.05
z = (p_gorro-p0)/sqrt((p0*q0)/n)
z
#3b. Valorp
if(z>=0){
  valorp = 2*pnorm(z,lower.tail = FALSE)
}else{
  valorp = 2*pnorm(z,lower.tail = TRUE)
}
valorp
#Método del valorp
if(valorp <= alpha){
  'Rechazo Ho'
}else{
  'No rechazo Ho'
}
#4.Región de rechazo
valor_critico = qnorm(alpha/2,lower.tail = FALSE)
valor_critico
if(z<=-valor_critico | z>=valor_critico){
  'Rechazo Ho'
}else{
  'No rechazo Ho'
}
#5.Conclusión:....