Библиотеки, которые я использую:
library(ggplot2)
library(dplyr)
library(statsr)
```{r}
factor_sc <- table(gss1$class, gss1$getahead)
factor_sc <- addmargins(factor_sc)
factor_sc
```
Я пишу это, и вывод:
Hard Work Both Equally Luck Or Help Other Sum
Lower Class 1063 368 299 0 1730
Working Class 10229 3221 1870 0 15320
Middle Class 9914 3624 1612 0 15150
Upper Class 701 265 100 0 1066
No Class 0 0 0 0 0
Sum 21907 7478 3881 0 33266
Я хочу выполнить вывод хи-квадрат для этих данных, чтобыЯ хочу удалить Others и No class.
Однако я уже удаляю их, используя:
```{r}
gss1 <- gss %>% filter(!is.na(getahead),
!is.na(class), class != "No Class", getahead !="Other")
```
Почему в моей таблице появляются Other
и No class
?