Proyecto Estadística Presentación

PROYECTO ESTADÍSTICA
NARVAEZ CHRISTIAN
NARANJO RAFAEL
DATA: POKEMONES
Durante años se ha oído acerca de los pokémones,

independientemente de si se es un gran fan de los videojuegos o del
anime japonés, todo mundo sabe acerca de ellos y de su existencia;
aunque sea únicamente del famoso Pikachú, aquella criatura color
amarilla que se presenta como tierna y fiel acompañante de Ash
Ketchum. Pokemon tuvo sus inicios como un videojuego, cuyo autor es
Satoshi Tajiri
Pokemon ha sido un fenómeno a nivel mundial con un impacto

increíblemente fuerte en jóvenes y adultos. Pues, durante 25 años de
transmisión, es de esperarse un rango inmenso de edades de interés
en el videojuego y anime; tanto así que, años atrás, por el 2016 se
lanzó a todos los mercados digitales la aplicación de Pokemon Go,
cuyo fin era vivir una experiencia más real en la captura de pokemones
y vivir las famosas batallas Pokemon.
OBJETIVOS
 Comparar el promedio del total de puntos los pokémones tipo agua y fuego.
 Comparar el promedio de ataque de los pokémones lengendarios y no legendarios.
 Comparar el promedio de defensa de los pokémones de generación uno y ocho.
OBJETIVO 1
• pokemones_agua <- Pokemon

%>% filter(type1 == "Water") %>
% select(total) %>% unlist()
• pokemones_agua
• pokemones_fuego <- Pokemon

%>% filter(type1 == "Fire") %>%
select(total) %>% unlist()
• pokemones_fuego
qqnorm(pokemones_agua)
qqline(pokemones_agua)
OBJETIVO 1
• qqnorm(pokemones_fuego)
• qqline(pokemones_fuego)
OBJETIVO 1
• H0: _ pokemones_agua = _ pokemones_fuego
• Ha: _ pokemones_agua != _ pokemones_fuego
• var.test(x = pokemones_agua, y= pokemones_fuego, ratio=1, alternative = "two.sided",
• conf.level = 0.95)
• El valor p resulta ser 0.4641, mayor que el valor de significancia (0.05) al 95% de
confianza. No se puede rechazar la hipótesis nula. Se considera a las varianzas iguales
OBJETIVO 1
• H0: pokemones_agua = pokemones_fuego
• Ha: pokemones_agua < pokemones_fuego
• t.test(x=pokemones_agua, y=pokemones_fuego, alternative="less", mu=0,
• paired = F, var.equal = T, conf.level = 0.95)
• El valor p (0.064) es mayor al nivel de significancia (0.05) a un nivel de confianza del 95%.
Por lo tanto, no se puede rechazar la hipótesis nula.
CONCLUSIÓN OBJETIVO 1
• Ya que el valor p fue mayor al nivel de significancia a un 95% de confianza, se concluye

que no existe diferencia significativa en el total de puntos entre los pokémones tipo agua y
los tipo fuego.
• Por tanto, no se puede una ventaja significativa al usar un tipo fuego contra un tipo agua.
En otras palabras, la hipótesis alterna se planteaba en el sentido de que las habilidades de
fuego anulaban las de agua; con esta conclusión, se presencia que las habilidades de
agua también pueden representar un factor de peligro ante las de fuego.
OBJETIVO 2
• pokemones_leg <- Pokemon %>%

filter(legendary == "TRUE") %>%
select(attack) %>% unlist()
• pokemones_leg
• pokemones_noleg <- Pokemon

%>% filter(legendary == "FALSE")
%>% select(attack) %>% unlist()
• pokemones_noleg
qqnorm(pokemones_leg)
qqline(pokemones_leg)
OBJETIVO 2
• qqnorm(pokemones_noleg
)
• qqline(pokemones_noleg)
OBJETIVO 2
• H0: _pokemones_leg = _ pokemones_noleg
• Ha: _ pokemones_leg != _ pokemones_noleg
• var.test(x = pokemones_leg, y= pokemones_noleg, ratio=1, alternative = "two.sided",
• El valor p es mayor al nivel de significancia (p-value = 0.7993, = 0.05). Por lo tanto, no se

puede rechazar la hipótesis nula. Las varianzas son iguales.
OBJETIVO 2
• #H0: pokemones_leg = _pokemones_noleg
• #Ha: pokemones_leg > pokemones_noleg
• t.test(x=pokemones_leg, y=pokemones_noleg, alternative="greater", mu=0,
• El valor p es menor al valor de significancia al 95% de confianza (p-value = 2.2x10^-16

alpha = 0.05)
• Ya que el valor p en esta prueba resultó ser menor que el valor de significancia al 95% de
confianza, se puede rechazar la hipótesis nula. En conclusión, existe diferencia
significativa entre la media de ataque de los pokémones legendarios y los no legendarios.
• Por lo tanto, se determina que usar pokémones legendarios provean mayores
probabilidades de acabar con el pokemon rival. A nivel de batalla, esto implica mejores
resultados en el campo.
OBJETIVO 3
• pokemones_gen1 <- Pokemon %>

% filter(generation == 1) %>%
select(defense) %>% unlist()
• pokemones_gen1
• pokemones_gen8 <- Pokemon %>

% filter(generation == 8) %>%
select(defense) %>% unlist()
• pokemones_noleg
qqnorm(pokemones_gen1)
qqline(pokemones_gen1)
OBJETIVO 3
• qqnorm(pokemones_gen1)
• qqline(pokemones_gen1)
OBJETIVO 3
• H0: _ pokemones_gen1 = _ pokemones_gen8
• Ha: _ pokemones_gen1 != _ pokemones_gen8
• var.test(x = pokemones_gen1, y= pokemones_gen8, ratio=1, alternative = "two.sided",
• El valor p es mayor al nivel de significancia (p-value = 0.3115, α= 0.05). Por lo tanto, no se

puede rechazar la hipótesis nula. Las varianzas son iguales.
OBJETIVO 3
• #H0: pokemones_gen1 = pokemones_gen8
• #Ha: pokemones_gen1 < pokemones_gen8
• t.test(x=pokemones_gen1, y=pokemones_gen8, alternative="less", mu=0,
• El valor p es menor al valor de significancia al 95% de confianza (p-value = 0.01539 α=

0.05).
• Como el valor p fue menor que el valor de significancia al 95% de confianza, se concluye
que se puede rechazar la hipótesis nula y que existe diferencia significativa entre las
medias.
• Esto solo evidencia que, a medida que los pokémones nacen en una generación superior,
sus habilidades también son superiores. Por lo tanto, la defensa de los pokémones de la
última generación es mucho mejor que la primera generación.

Proyecto Estadística Presentación

Cargado por

Información del documento

Descripción original:

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Proyecto Estadística Presentación

Cargado por

Copyright:

Formatos disponibles

PROYECTO ESTADÍSTICA

Durante años se ha oído acerca de los pokémones,

Pokemon ha sido un fenómeno a nivel mundial con un impacto

• pokemones_agua <- Pokemon

• pokemones_fuego <- Pokemon

• H0: _ pokemones_agua = _ pokemones_fuego

• Ha: _ pokemones_agua != _ pokemones_fuego

• var.test(x = pokemones_agua, y= pokemones_fuego, ratio=1, alternative = "two.sided",

• H0: pokemones_agua = pokemones_fuego

• Ha: pokemones_agua < pokemones_fuego

• t.test(x=pokemones_agua, y=pokemones_fuego, alternative="less", mu=0,

• paired = F, var.equal = T, conf.level = 0.95)

• Ya que el valor p fue mayor al nivel de significancia a un 95% de confianza, se concluye

• pokemones_leg <- Pokemon %>%

• pokemones_noleg <- Pokemon

• H0: _pokemones_leg = _ pokemones_noleg

• Ha: _ pokemones_leg != _ pokemones_noleg

• var.test(x = pokemones_leg, y= pokemones_noleg, ratio=1, alternative = "two.sided",

• El valor p es mayor al nivel de significancia (p-value = 0.7993, = 0.05). Por lo tanto, no se

• #H0: pokemones_leg = _pokemones_noleg

• #Ha: pokemones_leg > pokemones_noleg

• t.test(x=pokemones_leg, y=pokemones_noleg, alternative="greater", mu=0,

• paired = F, var.equal = T, conf.level = 0.95)

• El valor p es menor al valor de significancia al 95% de confianza (p-value = 2.2x10^-16

• pokemones_gen1 <- Pokemon %>

• pokemones_gen8 <- Pokemon %>

• H0: _ pokemones_gen1 = _ pokemones_gen8

• Ha: _ pokemones_gen1 != _ pokemones_gen8

• var.test(x = pokemones_gen1, y= pokemones_gen8, ratio=1, alternative = "two.sided",

• El valor p es mayor al nivel de significancia (p-value = 0.3115, α= 0.05). Por lo tanto, no se

• #H0: pokemones_gen1 = pokemones_gen8

• #Ha: pokemones_gen1 < pokemones_gen8

• t.test(x=pokemones_gen1, y=pokemones_gen8, alternative="less", mu=0,

• paired = F, var.equal = T, conf.level = 0.95)

• El valor p es menor al valor de significancia al 95% de confianza (p-value = 0.01539 α=

También podría gustarte