sboysel

#' Grouped summary statistics
#'
#' Wraps \code{\link{aggregate}} to generate common summary statistics over
#' subsets.
#'
#' @param data A data.frame to be summarized.
#' @param by Grouping variables specified by a formula as used in 
#'  \code{\link{aggregate}}.
#' @param stats A character vector of statistical functions.  Default is c("n",
#'  "mean", "sd", "min", "max").  More functions can be added by modifying the 

sboysel

# Load the MNIST digit recognition dataset into R
# http://yann.lecun.com/exdb/mnist/
# assume you have all 4 files and gunzip'd them
# creates train$n, train$x, train$y  and test$n, test$x, test$y
# e.g. train$x is a 60000 x 784 matrix, each row is one digit (28x28)
# call:  show_digit(train$x[5,])   to see a digit.
# brendan o'connor - gist.github.com/39760 - anyall.org

load_mnist <- function(path = "mnist") {
  # Usage:

sboysel

# Prepare SpatialPolygonsDataFrame for plotting with ggplot2
# Follows https://github.com/hadley/ggplot2/wiki/plotting-polygon-shapefiles
# Assumes you are in Hadleyverse and already have dplyr loaded.

prepare_spdf <- function(spdf) {
  require(dplyr)
  reguire(ggplot2)
  spdf@data$id <- rownames(spdf@data)
  spdf.points <- ggplot2::fortify(spdf, region = "id")
  if (sum(is.na(spdf.points$hole))) {

sboysel

# Quick wrapper for the awesome commandlinefu.com API
# http://www.commandlinefu.com/site/api
using Requests
using JSON

BASE_URL = "http://www.commandlinefu.com/commands/"

function bestfu()
    q = BASE_URL * "browse/sort-by-votes/json"
    return JSON.parse(IOBuffer(Requests.get(q).data))