Basics on Working with R

R/Input nd Output.R

@@ -0,0 +1,10 @@
+##readLine is used to take I/P from user
+
+my.name <- readline(prompt="Enter name: ")
+my.age <- readline(prompt="Enter age: ")
+
+# convert character into integer using as.integer 
+my.age <- as.integer(my.age)
+
+## Printing Out in the Screen
+print(paste("Hi,", my.name, "next year you will be", my.age+1, "years old."))

R/for_loop.R

@@ -0,0 +1,18 @@
+ # Create a vector filled with random normal 
+u1 <- rnorm(30)
+print("This loop calculates the square of the first 10 elements of vector u1")
+
+# Initialize `usq`
+
+usq <- 0
+
+
+## using for loop to iterate over first 10 elements in ul
+
+for(i in 1:10) {
+  # i-th element of `u1` squared into `i`-th position of `usq`
+  usq[i] <- u1[i]*u1[i]
+  print(usq[i])
+}
+
+print(i)

R/for_loop1.R

@@ -0,0 +1,12 @@
+# making vector prime
+primes <- c(2, 3, 5, 7, 11, 13)
+
+# loop version 1
+for (p in primes) {
+  print(p)
+}
+
+# loop version 2
+for (i in 1:length(primes)) {
+  print(primes[i])
+}

R/if_else.R

@@ -0,0 +1,10 @@
+if (TRUE){
+	print ("This will execute...")
+} 
+
+else{
+	print ("but this will not.")
+}
+## This will execute...
+
+##similarly if else - if can be coded

R/sort_inbuilt.R

@@ -0,0 +1,17 @@
+# x is a vector on which various Operations are to be performed
+
+x
+## 7 1 8 3 2 6 5 2 2 4
+
+# sort in ascending order
+sort(x)
+## 1 2 2 2 3 4 5 6 7 8
+
+# sort in descending order
+sort(x, decreasing=TRUE)
+
+## 8 7 6 5 4 3 2 2 2 1
+
+# vector x remains unaffected
+x
+# 7 1 8 3 2 6 5 2 2 4

R/switch_case.R

@@ -0,0 +1,9 @@
+gk  <-  switch (
+2,
+"First",
+"Second",
+"Third",
+"Fourth"
+)
+print (gk)
+## Prints "Second"

R/while.R

@@ -0,0 +1,14 @@
+# Your User Defined Function
+
+readinteger <- function(){
+  n <- readline(prompt="Please, enter your ANSWER: ")
+}
+
+##converts response to integer from character
+
+response <- as.integer(readinteger())
+
+while (response!=42) {   
+  print("Sorry, the answer to whatever the question MUST be 42");
+  response <- as.integer(readinteger());
+}