Добавил:
Koboku1
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
#Задание 7.1. В этой задаче вам дан набор данных, в котором представлена
информация о температуре нескольких пациентов, которые лечатся разными
таблетками и у разных врачей.
Проведите однофакторный дисперсионный анализ с повторными измерениями: влияние
типа таблетки (pill) на температуру (temperature) с учётом испытуемого (patient).
Каков p-value для влияния типа таблеток на температуру?
mydata <- read.csv('Pillulkin.csv')
mydata$patient <- as.factor(mydata$patient)
summary(aov(temperature ~ pill + Error(patient / pill), data = mydata))
#fit[[2]]$'Pr(>F)'
#Задание 7.2. Дополнить шаблон графика так (не добавляя еще один geom), чтобы
объединить линиями точки, принадлежащие разным уровням фактора supp.
ToothGrowth <- read.csv('ToothGrowth.csv')
library(ggplot2)
ggplot(ToothGrowth, aes(x = as.factor(dose), y = len, col = supp))+
stat_summary(geom = 'errorbar', width = 0.1, position = position_dodge(0.2))+
stat_summary(geom = 'point', size = 3, position = position_dodge(0.2))+
stat_summary(geom = 'line', position = position_dodge(0.2))
информация о температуре нескольких пациентов, которые лечатся разными
таблетками и у разных врачей.
Проведите однофакторный дисперсионный анализ с повторными измерениями: влияние
типа таблетки (pill) на температуру (temperature) с учётом испытуемого (patient).
Каков p-value для влияния типа таблеток на температуру?
mydata <- read.csv('Pillulkin.csv')
mydata$patient <- as.factor(mydata$patient)
summary(aov(temperature ~ pill + Error(patient / pill), data = mydata))
#fit[[2]]$'Pr(>F)'
#Задание 7.2. Дополнить шаблон графика так (не добавляя еще один geom), чтобы
объединить линиями точки, принадлежащие разным уровням фактора supp.
ToothGrowth <- read.csv('ToothGrowth.csv')
library(ggplot2)
ggplot(ToothGrowth, aes(x = as.factor(dose), y = len, col = supp))+
stat_summary(geom = 'errorbar', width = 0.1, position = position_dodge(0.2))+
stat_summary(geom = 'point', size = 3, position = position_dodge(0.2))+
stat_summary(geom = 'line', position = position_dodge(0.2))