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