air-drummer

source_https <- function(url, ...) {
  ## Function for sourcing individual R scripts from GitHub
  ## Author: Tony Breyal
  ## Contributions: Kay Cichini
  ## Original URL: http://tonybreyal.wordpress.com/2011/11/24/source_https-sourcing-an-r-script-from-github/
  ## Load required package
  require(RCurl)
  ## Parse and evaluate each .R script
  sapply(c(url, ...), function(u) {
      eval(parse(text = getURL(u, followlocation = TRUE,

air-drummer

#' Modified version of the ggplot2 plotmatrix function that accepts additional
#' variables for aesthetic mapping.
#' 
#' example
#' data(iris)
#' iris.vars <- c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
#' ggpairs(data = iris, facet.vars = iris.vars, 
#'  mapping = aes(color = Species, shape = Species))

ggpairs <- function (data, facet.vars = colnames(data), facet.scale = "free",