anova_generation_similarity.Rmd

### HP

Do newer generations have more HP (Health Points) than previous generations?

First, let's take a look at the average HP for each generation:

```{r}
pokedex.table %>%
  group_by(Gen) %>%
  summarise(average_hp = mean(HP))
```

We can see some variation in the HP across generations; Generation IV Pokemon have, on average, around 8 more HP than the Generation I Pokemon. But is this statistically significant? Let's use the ANOVA/F-test at 5% level of significance.

$H_o =$ no difference between true average HP across generations

$H_a =$ at least two generations' average HP are different

```{r}
res.aov <- aov(HP ~ Gen, data = pokedex.table)
summary(res.aov)
```

We can see that there's a 14.9% of us seeing values as extreme as the above which is greater than our 5% level of significance. Therefore, we do not reject the null hypothesis ($H_o$). We conclude that the generations do not vary in HP at 5% level of significance.