ANOVA temario

library(readr)
Evidencia1 <- read_csv("Documents/Evidencia1.csv")

## Rows: 12510 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (6): ent, mun, est, pea, ocupados, informales
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

data <- subset(Evidencia1, ent ==2)

Resultado <- aov(pea ~ ent, data = data)

Resultado

## Call:
##    aov(formula = pea ~ ent, data = data)
## 
## Terms:
##                 Residuals
## Sum of Squares   27676.33
## Deg. of Freedom        34
## 
## Residual standard error: 28.53085

boxplot(pea ~ ent, data = data, xlab = "Pea", ylab = "Entidad")