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)

size_Hamulce <- length(Hamulce$Wynik)

#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)

#Bez bootstrapa
# funkcja wbudowana
t.test(Wynik,mu=18.6,alternative='less')
# nasza funkcja
t.test_single(Wynik, m=18.6, alternative='less')