fixes

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

egzamin/zadania.R

@@ -0,0 +1 @@
+# zad

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')
 ```