seminar Hypotheses

# вероятности для t-распределения
pt(0, df = 10)
pt(2, df = 10)
1 - pt(0, df = 10)

pt(1.11, df = 10)
(1 - pt(1.11, df = 10)) * 2

# загружаем данные
chipdale <- read.csv("https://allatambov.github.io/psms/chip-n-dale.csv")
chipdale <- na.omit(chipdale)

# описательные статистики
summary(chipdale)

# проверка гипотезы о доли
prop.test(24, 66, p = 0.25)
prop.test(24, 66, p = 0.25, alternative = "greater")

# проверка гипотезы о среднем
t.test(chipdale$cheeze, mu = 70)

# проверка гипотезы о равенстве средних
t.test(chipdale$tech ~ chipdale$spec)