diff --git a/.gitignore b/.gitignore
index e43b0f9..3ecd7f3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 .DS_Store
+.Rproj.user
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..8d9410b
--- /dev/null
+++ b/README.md
@@ -0,0 +1,3 @@
+# Ćwiczenia statystyka
+
+Zadania w RStudio.
diff --git a/zajecia1/zajecia1.R b/zajecia1/zajecia1.R
index eb83c82..2bedd45 100644
--- a/zajecia1/zajecia1.R
+++ b/zajecia1/zajecia1.R
@@ -44,5 +44,56 @@ print(zaok)
 print(calk)
 
 #ZAD8
+start <- Sys.time()
+for (x in 1:100000000){
+  pierw <- sqrt(x)
+}
+print(Sys.time() - start)
+
+start <- Sys.time()
+for (x in 1:100000000){
+  pierw <- x^(1/2)
+}
+print(Sys.time() - start)
+
+
+#ZAD9
+install.packages("schoolmath")
+library(schoolmath)
+
+last <- 0
+number <- 0
+for (x in primlist){
+  if (x >= 1000){
+    print(last)
+    break
+  }
+  last <-x
+  if (x > 100 && x < 500){
+    number <- number + 1
+  }
+}
+print(number)
+
+
+# ZAD 10
+print(c(paste(paste(rep("a", 3), 1:3, sep = "")), paste(paste(rep("b", 3), 1:3, sep = ""))))
+
+
+#ZAD 11
+litery <- c("X", "Y", "Z")
+print(paste(1:30, rep(litery, 10), sep="."))
+
+
+#ZAD 12
+install.packages("car")
+library(car)
+
+odpowiedzi <- c("a", "b", "c", "d", "e")
+x <- sample(odpowiedzi, 100, replace = TRUE)
+print(recode(x, "c('a', 'b') = 1; c('c', 'd') = 2; 'e' = 3"))
+
+
+
 
 
diff --git a/zajecia1/zajecia1.Rproj b/zajecia1/zajecia1.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/zajecia1/zajecia1.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