#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---
```{r message = FALSE}
# load libraries
library(tidyr)
```
```{r message = FALSE}
# load data
load("stores.Rda")
load("stores_new.Rda")
```
```{r}
# inspect stores here:
stores
```
```{r}
# perform anova on stores here:
results = aov(sales ~ store, data = stores)
summary(results)
```
```{r}
# perform anova on stores_new here:
results_new = aov(sales ~ store, data = stores_new)
summary(results_new)
```
No comments:
Post a Comment