Ответы, отчеты, курсовые, лекции 1-3 курс (1, 2, 3, 4, 5 семестр) ЧГУ КТ-43-15 / 3 семестр / R Language лабы (Сковорцов) / 5

#5.1
Задание 5.1. Из таблицы HairEyeColor в переменную red_men сохранить долю
рыжеволосых (Red) от общего числа голубоглазых мужчин.

df <- read.csv("HairEyeColor.csv")
str(df)
t1 <- table(Hair = df$Hair, Eye = df$Eye)
red_men <- prop.table(t1[,,"Male"], 2)["Red", "Blue"]


#5.2
Задание 5.2. Постройте столбчатую диаграмму распределения цвета глаз по цвету волос
только у женщин из таблицы HairEyeColor. По оси X должен идти цвет волос, цвет
столбиков должен отражать цвет глаз. По оси Y - количество наблюдений.

library("ggplot2")
mydata <- as.data.frame(HairEyeColor)
obj <- ggplot(data = mydata, aes(x = Hair, y = Freq, fill = Eye)) +
geom_bar(stat="identity", position = "dodge") +
scale_fill_manual(values=c("Brown", "Blue", "Darkgrey", "Darkgreen"))
obj


#5.3
Задание 5.3. Воспользуемся данными diamonds из библиотеки ggplot2. При помощи критерия
Хи - квадрат проверьте гипотезу о взаимосвязи качества огранки бриллианта (сut) и его
цвета (color). В переменную MainStat сохраните значение статистики критерия
Хи - квадрат. Обратите внимание, main.stat должен быть вектором из одного элемента,
а не списком (листом).

t2 <- table(diamonds$cut, diamonds$color)
dim(t2)
chi <- chisq.test(t2)
str(chi)
MainStat <- chi$statistic
MainStat


#5.4
Задание 5.4. При помощи точного критерия Фишера проверьте гипотезу о взаимосвязи типа
коробки передач (am) и типа двигателя (vs) в данных mtcars. Результат выполнения
критерия сохраните в переменную.Получившийся p - уровень значимости сохраните в
переменную FisherTest.

df <- read.csv("mtcars.csv")
t2 <- table(mtcars$am, mtcars$vs)
dim(t2)
chi <- fisher.test(t2)
str(chi)
MainStat <- chi$p.value
MainStat