Function
Create function
  1. getRand <- function(n)
  2. {
  3. 	return(runif(n))
  4. }
  5.  
  6. print(getRand(4))
  7.
Default parameters
  1. getSum <- function(a = 0, b = 1, c = 2)
  2. {
  3. 	return(a+b+c)
  4. }
  5.  
  6. print(getSum(1, 2, 3)) # a = 1, b = 2, c = 3
  7. print(getSum(1, 2)) # a = 1, b = 2, c = 2
  8. print(getSum()) # a= 0, b = 1, c = 2
  9. print(getSum(b = 10)) # pass value by parameter name, a = 0, b = 10, c = 2
  10.
Return multiple values
  1. library(gsubfn)
  2.  
  3. getMul <- function()
  4. {
  5. 	return(list(1, 2))
  6. }
  7.  
  8. list[a, b] <- getMul()
  9.  
  10. message(sprintf("%d, %d\n", a, b))
  11.