2022-05-09 12:01:06 +02:00
|
|
|
t.test_single <- function(x, m, alternative = "two.sided") {
|
|
|
|
M <- mean(x)
|
|
|
|
n <- length(x)
|
|
|
|
statistic <- ((M - m) / sd(x)) * sqrt(n)
|
|
|
|
p <- if (alternative == "two.sided") {
|
|
|
|
2 * pt(q=abs(statistic), df=length(x)-1, lower.tail=FALSE)
|
|
|
|
} else if (alternative == "less") {
|
|
|
|
pt(q=statistic, df=length(x)-1, lower.tail = TRUE)
|
|
|
|
} else {
|
|
|
|
pt(q=statistic, df=length(x)-1, lower.tail = FALSE)
|
|
|
|
}
|
|
|
|
|
|
|
|
value <- list(mean = M, m = m, statistic = statistic, p.value = p, alternative = alternative)
|
|
|
|
return(value)
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
load("Hamulce.RData")
|
|
|
|
attach(Hamulce)
|
2022-05-09 17:33:51 +02:00
|
|
|
|
|
|
|
size_Hamulce <- length(Hamulce$Wynik)
|
|
|
|
|
2022-05-23 13:46:09 +02:00
|
|
|
#Z bootstrapem
|
|
|
|
wyniki <- data.frame()
|
|
|
|
for (i in 1:10) {
|
|
|
|
bootstrappedData_Wynik <- ourBoot(Hamulce$Wynik, size_Hamulce, size_Hamulce)
|
|
|
|
# nasza funkcja
|
|
|
|
ttest <- t.test_single(bootstrappedData_Wynik, m=18.6, alternative='less')
|
|
|
|
wyniki <- rbind(wyniki, ttest)
|
|
|
|
}
|
|
|
|
mean(wyniki$mean)
|
|
|
|
mean(wyniki$statistic)
|
|
|
|
mean(wyniki$p.value)
|
2022-05-09 17:33:51 +02:00
|
|
|
|
2022-05-23 13:46:09 +02:00
|
|
|
#Bez bootstrapa
|
2022-05-09 17:33:51 +02:00
|
|
|
# funkcja wbudowana
|
2022-05-09 12:01:06 +02:00
|
|
|
t.test(Wynik,mu=18.6,alternative='less')
|
2022-05-09 17:33:51 +02:00
|
|
|
# nasza funkcja
|
2022-05-09 12:01:06 +02:00
|
|
|
t.test_single(Wynik, m=18.6, alternative='less')
|
|
|
|
|
|
|
|
|
|
|
|
|