diff --git a/zajecia12/zadania.R b/zajecia12/zadania.R
index 325b2dc..337e5c7 100644
--- a/zajecia12/zadania.R
+++ b/zajecia12/zadania.R
@@ -121,3 +121,5 @@ mean(pca_3$sdev^2)
+
+
diff --git a/zajecia13/.Rhistory b/zajecia13/.Rhistory
new file mode 100644
index 0000000..030a1ec
--- /dev/null
+++ b/zajecia13/.Rhistory
@@ -0,0 +1,21 @@
+head(mtcars)
+plot(mtcars$mpg, mtcars$wt, xlab = "mpg", ylab = "wt", pch = 16)
+shapiro.test(mtcars$mpg)$p.value
+qqnorm(mtcars$mpg)
+qqline(mtcars$mpg, col = "red")
+shapiro.test(mtcars$wt)$p.value
+qqnorm(mtcars$wt)
+qqline(mtcars$wt, col = "red")
+shapiro.test(mtcars$mpg)$p.value
+qqnorm(mtcars$mpg)
+qqline(mtcars$mpg, col = "red")
+shapiro.test(mtcars$wt)$p.value
+qqnorm(mtcars$wt)
+qqline(mtcars$wt, col = "red")
+cor.test(mtcars$mpg, mtcars$wt, method = "pearson")$p.value
+cor.test(mtcars$mpg, mtcars$wt, method = "pearson")$est
+cor.test(mtcars$mpg, mtcars$wt, method = "pearson")$conf.int
+cor.test(mtcars$mpg, mtcars$wt, method = "kendall")$p.value
+cor.test(mtcars$mpg, mtcars$wt, method = "kendall")$est
+cor.test(mtcars$mpg, mtcars$wt, method = "spearman")$p.value
+cor.test(mtcars$mpg, mtcars$wt, method = "spearman")$est
diff --git a/zajecia13/README.md b/zajecia13/README.md
new file mode 100644
index 0000000..e512482
--- /dev/null
+++ b/zajecia13/README.md
@@ -0,0 +1,5 @@
+# Zajęcia 13
+Analiza korelacji
+
+
+## Notatki
diff --git a/zajecia13/Zajęcia13.pdf b/zajecia13/Zajęcia13.pdf
new file mode 100644
index 0000000..81c4cd9
Binary files /dev/null and b/zajecia13/Zajęcia13.pdf differ
diff --git a/zajecia13/zadania.R b/zajecia13/zadania.R
new file mode 100644
index 0000000..c5cdc5b
--- /dev/null
+++ b/zajecia13/zadania.R
@@ -0,0 +1,21 @@
+# ZAD1
+
+head(mtcars)
+
+plot(mtcars$mpg, mtcars$wt, xlab = "mpg", ylab = "wt", pch = 16)
+
+shapiro.test(mtcars$mpg)$p.value
+qqnorm(mtcars$mpg)
+qqline(mtcars$mpg, col = "red")
+shapiro.test(mtcars$wt)$p.value
+qqnorm(mtcars$wt)
+qqline(mtcars$wt, col = "red")
+
+cor.test(mtcars$mpg, mtcars$wt, method = "pearson")$p.value
+cor.test(mtcars$mpg, mtcars$wt, method = "pearson")$est
+cor.test(mtcars$mpg, mtcars$wt, method = "pearson")$conf.int
+
+cor.test(mtcars$mpg, mtcars$wt, method = "kendall")$p.value
+cor.test(mtcars$mpg, mtcars$wt, method = "kendall")$est
+cor.test(mtcars$mpg, mtcars$wt, method = "spearman")$p.value
+cor.test(mtcars$mpg, mtcars$wt, method = "spearman")$est
\ No newline at end of file
diff --git a/zajecia13/zajecia13.Rproj b/zajecia13/zajecia13.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/zajecia13/zajecia13.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/zajecia6/README.md b/zajecia6/README.md
index 7235cbb..c34438f 100644
--- a/zajecia6/README.md
+++ b/zajecia6/README.md
@@ -20,7 +20,7 @@ Wartość p, p-wartość, prawdopodobieństwo testowe.
## Wykres Q-Q
-Ten wykres (kwantyl - kwantyl) słuzy do porównania wartości estymowanej - linia z prawdziwymi zmierzonymi wartościami - kropki.
+Ten wykres (kwantyl - kwantyl) słuzy do porównania wartości estymowanej - linia, z prawdziwymi zmierzonymi wartościami - kropki.
W tych ćwiczeniach ta wartość przewidziana to po prostu najlepiej pasująca linia do punktów.
