diff --git a/merde_1.R b/merde_1.R
new file mode 100644
index 0000000..b1509a0
--- /dev/null
+++ b/merde_1.R
@@ -0,0 +1,26 @@
+#Question 4
+mean_1 = 50
+n_1 = 36
+std_1 = 42
+#a_1 = 0.05 NOPE
+a_1 = 1.96
+lower_1 = mean_1 - (std_1/sqrt(n_1))*a_1
+upper_1 = mean_1 + (std_1/sqrt(n_1))*a_1
+
+cat(lower_1,"-",mean_1,"",upper_1)
+#Question 5
+## Higher confidence -> lower accuracy -> less accurate estimate -> greater range
+## ~~Bigger n -> greater range -> greater standard deviation -> ?~~ NOPE
+## Bigger n -> smaller standard error (std_1/sqrt(n_1)) -> smaller confidence range 
+
+#Question 6
+
+std_2 = 15
+e_2 = 10 #?
+# 10 = 15/sqrt(n) -> sqrt(n) = 15/10 -> n_2 = 1.5 #nope
+#1.96*stderr_2 = e_2 (10)
+#stderr_2 = 5.102041
+#n_2: 5.102041 = 15/sqrt(n)
+#15/5.102041 = sqrt(n)
+# 10 = 1.96*(15/sqrt(n))
+