Why not?

amazing.R

@@ -0,0 +1,34 @@
+#Create vector from 1 to 10
+num <- c(seq(1:10))
+#Create empty vector named 'amazing'
+amazing <-c()
+#Iterate over all numbers from 1 to the length of the vector (10)
+for (i in 1:length(num))
+{
+  #If the number is greater or equal to 1 AND ALSO (&) smaller or equal to 3...
+  if(i >= 1 & i <=3)
+  #    ^ this bit is important
+  {
+    cat(i, "is low\n")
+    #Add "low" to list called 'Amazing'
+    amazing[i] <- "low"
+    #Once this condition is satisfied, move on to next item in loop (if on 1, move on to 2, etc)
+    next
+  }
+  #If the number is greater or equal to 3 AND ALSO (&) smaller or equal to 6...
+  else if(i > 3 & i <=6)
+  #             ^ this is like two IF's
+  {
+    cat(i, "is medium\n")
+    amazing[i] <- "medium"
+    next
+  }
+  
+  else if(i > 6 & i <=10)
+  #                 ^ this bit is also important
+    cat(i, "is high\n")
+    amazing[i] <- "high"
+    next
+}
+amazing
+sleep["Amazing"] <- amazing