leeper

# push
push <- function(x, values) (assign(as.character(substitute(x)), c(x, values), parent.frame()))

# pop
pop <- function(x) (assign(as.character(substitute(x)), x[-length(x)], parent.frame()))

# example
z <- 1:3
push(z, 4)
z

benmarwick

#'  Bagplot
#' 
#' The bag geom is useful for graphical summaries of scatterplots. It 
#' is effective at showing the  location, spread, skewness, and 
#' outliers of a data set.
#'  
#' A bagplot is a bivariate generalization of the well known boxplot. It
#' was proposed by Rousseeuw, Ruts, and Tukey. This geom plots bagplots that 
#' are very similar to the one described in Rousseeuw et al. and
#' uses code from their bagplot functions in the aplpack pacakge. 

jackrusher

;; make sure you've set your default project with:
;; gcloud config set project <project-name>

(require 'tramp)
(add-to-list 'tramp-methods
  '("gcssh"
    (tramp-login-program        "gcloud compute ssh")
    (tramp-login-args           (("%h")))
    (tramp-async-args           (("-q")))
    (tramp-remote-shell         "/bin/sh")