Задания с сайта https://stepik.org/lesson/11502/step/14?unit=2525
# При помощи критерия Хи - квадрат проверьте гипотезу о взаимосвязи качества огранки бриллианта (сut) и его цвета (color).
t <- table(diamonds$cut, diamonds$color)
main_stat <- chisq.test(t)$statistic
# При помощи критерия Хи - квадрат проверьте гипотезу о взаимосвязи цены (price) и каратов (carat) бриллиантов.
library(ggplot2)
P1 <- ifelse(diamonds$price < mean(diamonds$price), 0, 1)
C1 <- ifelse(diamonds$carat < mean(diamonds$carat), 0, 1)
t <- table(P1, C1)
main_stat <- chisq.test(t)$statistic
# качества огранки бриллианта (сut) и его цвета (color).
t <- table(diamonds$cut, diamonds$color)
main_stat <- chisq.test(t)$statistic