more lectures

23112022.R

@@ -0,0 +1,24 @@
+#Specify number of elements
+count=100
+#Create vector of COUNT elements ranging from 1 to 6
+hundred <- (sample(c(1:6), count, replace = T))
+#Keep count of 1's in seperate variable
+one_count = 0
+#Iterate over array elements
+###
+for (i in hundred) {
+  #If current element is 1, add to count variable
+  if (i == 1) {
+    print("i is 1")
+    one_count = one_count + 1
+  }
+}
+### OR
+also_one_count <- sum(hundred=="1")
+###
+cat("One count is", one_count, "and also", also_one_count)
+###
+rel_one=(one_count/count)
+###OR
+also_rel_one < - sum(hundred=="1")/length(hundred) #Why is this one different?
+cat("Relative frequency of one is", rel_one, "and also", also_one_count)