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

R Spatial Analysis Notes

Spatial Analysis in R

Key Packages

• sp - defines the set of base classes for spatial data in R. Most useful for creating, converting, merging, transforming (e.g. projection), and plotting (see spplot) Spatial* objects.
• rgdal - wrapper

sboysel

#' Prints a LaTeX table with numeric columns aligned on their decimal points.
#' 
#' This function wraps the \code{\link{xtable}} and \code{\link{print.xtable}}
#' functions in the \code{xtable} package so that numeric columns are aligned
#' on their decimal place.
#' 
#' See \url{http://jason.bryer.org/posts/2013-01-04/xtable_with_aligned_decimals.html}
#' for more information.
#' 
#' @author Jason Bryer <jason@@bryer.org>

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))