8. Two group comparison

Задача про свинок!
Воспользуемся еще одним встроенным набором данных в R - ToothGrowth. Данные позволяют исследовать рост зубов у морских свинок в зависимости от дозировки витамина C и типа потребляемых продуктов.
Сравните среднее значение длины зубов свинок, которые потребляли апельсиновый сок (OJ) с дозировкой 0.5 миллиграмм, со средним значением длины зубов свинок, которые потребляли аскорбиновую кислоту (VC) с дозировкой 2 миллиграмма.
Значение t - критерия сохраните в переменную t_stat.

df<-ToothGrowth
df1 <- subset(df, dose == 0.5 & supp == "OJ")
df2<- subset(df, dose == 2 & supp == "VC")
df3 <- rbind(df1, df2)
t_stat<-t.test(len ~ supp, df3, var.equal = T)$statistic

Скачайте данные, посвященные влиянию различного типа лечения на показатель артериального давления.
https://stepic.org/media/attachments/lesson/11504/lekarstva.csv
По всем испытуемым сравните показатель давления до начала лечения (Pressure_before) с показателем давления после лечения (Pressure_after) при помощи t - критерия для зависимых выборок.
В поле для ответа укажите значение t - критерия.
(В качестве десятичного разделителя используйте запятую, например: 123,54)

t.test(df$Pressure_before, df$Pressure_after, paired = T)$statistic

В этом задании также необходимо скачать данные на ваш компьютер.

В данных сохранены две количественные переменные, проверьте гипотезу о равенстве средних этих переменных при помощи t- теста для независимых выборок.
Если обнаружены значимые различия (p< 0.05), то введите через пробел три числа: среднее значение первой переменной, среднее значение второй переменной, p - уровень значимости. Например:
22.45 12.56 0.04
Если значимые различия не обнаружены, то в поле для ответа введите:
"The difference is not significant"
В этой задаче оставьте var.equal = FALSE

df <- read.table("dataset_11504_15.txt")
p <- bartlett.test(df)$p.value
if (p < 0.05) {
p_res <- t.test(df$V1, df$V2)
cat(paste(c(sapply(df,mean), p_res$p.value), collapse = "\n"))
} else {
"The difference is not significant"
}