Some R functions that I've found useful

myFuncs.R

#!/usr/bin/env Rscript

# bootstrap
#   A function to bootstrap some data
bootstrap <- function(tmp.data) {
  boot.rep <- sample(x = tmp.data, replace = T)
  return(mean(boot.rep))
}

# push
#   A function to append to a vector
push <- function(l, x) {
  assign(x = l, value = append(x = eval(as.name(x = l)), values = x), envir=parent.frame())
}