diff --git a/egzamin/egzamin.Rproj b/egzamin/egzamin.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/egzamin/egzamin.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
diff --git a/egzamin/zadania.R b/egzamin/zadania.R
new file mode 100644
index 0000000..ae563e5
--- /dev/null
+++ b/egzamin/zadania.R
@@ -0,0 +1 @@
+# zad
\ No newline at end of file
diff --git a/podsumowanie/README.md b/podsumowanie/README.md
index b44cb35..a433687 100644
--- a/podsumowanie/README.md
+++ b/podsumowanie/README.md
@@ -162,7 +162,7 @@ barplot(counts,
         main = "Rozklady empiryczny i teoretyczny liczby zgloszen",
         col = c("red", "blue"), legend = rownames(counts), beside = TRUE)
 
-#kwanty-kwantyl, linia to moj estymator
+#kwanty-kwantyl
 qqplot(rpois(length(Centrala$Liczba), lambda = lambda_est), Centrala$Liczba,
        xlab = "Kwantyle teoretyczne", ylab = "Kwantyle empiryczne",
        main = "Wykres kwantyl-kwantyl dla liczby zgloszen")
@@ -374,6 +374,12 @@ qqline(y)
 var(x)
 var(y)
 var.test(x, y, alternative = "less")$p.value
+
+#test t-studenta dla jednej próby
+load("Hamulce.RData")
+attach(Hamulce)
+mean(Wynik)
+t.test(Wynik,mu=18.6,alternative='less')
 ```