Initial data commit

Task/Variables/R/variables-1.r

@@ -0,0 +1,2 @@
+foo <- 3.4
+bar = "abc"

Task/Variables/R/variables-2.r

@@ -0,0 +1,2 @@
+baz <- quux <- 1:10
+TRUE -> quuux

Task/Variables/R/variables-3.r

@@ -0,0 +1,15 @@
+a <- 3
+
+assignmentdemo <- function()
+{
+   message("assign 'a' locally, i.e. within the scope of the function")
+   a <- 5
+   message(paste("inside assignmentdemo, a = ", a))
+   message(paste("in the global environment, a = ", get("a", envir=globalenv())))
+
+   message("assign 'a' globally")
+   a <<- 7
+   message(paste("inside assignmentdemo, a = ", a))
+   message(paste("in the global environment, a = ", get("a", envir=globalenv())))
+}
+assignmentdemo()

Task/Variables/R/variables-4.r

@@ -0,0 +1,2 @@
+assign("b", TRUE)                         #equivalent to b <- TRUE
+assign("c", runif(10), envir=globalenv()) #equivalent to c <<- runif(10)