diff --git a/Projekt_1/T-student-single.R b/Projekt_1/T-student-single.R
index 5afcf65..d13fc49 100644
--- a/Projekt_1/T-student-single.R
+++ b/Projekt_1/T-student-single.R
@@ -20,14 +20,19 @@ attach(Hamulce)
 
 size_Hamulce <- length(Hamulce$Wynik)
 
-bootstrappedData_Wynik <- ourBoot(Hamulce$Wynik, 200, size_Hamulce)
-
-# funkcja wbudowana
-t.test(bootstrappedData_Wynik,mu=18.6,alternative='less')
-# nasza funkcja
-t.test_single(bootstrappedData_Wynik, m=18.6, alternative='less')
-
+#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