Anova Test.

library(readxl)

## Warning: package 'readxl' was built under R version 3.5.2

CRD <- read_excel(file.choose())
View(CRD)
Stacked_Data <- stack(CRD)
#countries are in their columns; so we need to stack the data


View(Stacked_Data)
attach(Stacked_Data)
#detach(Stacked_Data)
Anova_results<-aov(values~ind,data = Stacked_Data)
summary(Anova_results)

##              Df Sum Sq Mean Sq F value Pr(>F)
## ind           2    8.9   4.453    2.28  0.104
## Residuals   357  697.2   1.953

# P- value = 0.104 > 0.05 accept null hypothesis
# All proportions all equal
# customer order form
# unstacked data