R Помогите! тест chisquare

У меня есть набор данных, который выглядит так

введите описание изображения здесь

Я провожу тест хи-квадрат, чтобы узнать, ...

  1. существует значительная разница в частоте всех цветов, наблюдаемых до и после.
  2. есть значительная разница в частоте желтого цвета до и синего цвета после
  3. Если частота желтого, синего и оранжевого цветов до значительно ниже или выше, чем после.

Как мне это сделать в R? Могу ли я просто добавить все цвета, чтобы получился главный столбец?

Это то, что у меня есть

colors$combined <-  colors$yellow + colors$blue + colors$red + colors$orange + colors$purple


x1 <- chisq.test(colors$combined,colors$before/after)
x1

r statistics statistical-test chi-squared
person Donny    schedule 15.03.2021    source источник

Ответы (1)


arrow_upward
0
arrow_downward 

dat=data.frame(red=c(1,2,0,1,2,0),
               yellow=c(2,1,2,2,1,2),
               blue=c(1,2,2,1,1,2),
               orange=c(2,2,0,0,1,1),
               purple=c(2,2,1,1,1,1),
               when=c(rep("before", 4), "after", "after"))
library(dplyr)
tab=dat %>%
  group_by(when) %>%
  summarize(across(red:purple, mean)) %>%
  select(-when)
chisq.test(as.matrix(tab))
    Pearson's Chi-squared test

data:  as.matrix(tab)
X-squared = 0.075374, df = 4, p-value = 0.9993

Нет, нет значительной разницы между цветами до и после.

t.test(c(2,1,2,2), c(1,2))

Нет существенной разницы между желтым цветом до или синим после.

t.test(c(2,1,2,2), c(1,2))

Нет существенной разницы между желтым до и после.

t.test(c(1,2,2,1), c(1,2))

Нет существенной разницы между синим цветом до и после.

t.test(c(2,2,0,0), c(1,1))

Нет существенной разницы между оранжевым до и после.

person Jellyfish    schedule 15.03.2021
comment
Спасибо, вы правы! Я должен делать т. Тест, а не хи-квадрат. - person Donny; 17.03.2021