dsanson

#!/bin/sh

# any2pandoc.sh
#
# A shell script that tries its best to convert documents thrown at it
# to pandoc's extended markdown.
#
# https://gist.github.com/1181510
#
# Depends on: 

kennym

#!/usr/bin/env ruby
#
# Convert blogger (blogspot) posts to jekyll posts
#
# Basic Usage
# -----------
#
#   ./blogger_to_jekyll.rb feed_url
#
#  where `feed_url` can have the following format:

osteslag

#!/bin/sh

# Script for managing build and version numbers using git and agvtool.

# Change log:
# v1.0 18-Jul-11 First public release.
# v1.1 29-Sep-12 Launch git, agvtool via xcrun.


version() {

dsibilly

import sqlite3
import sqlalchemy
from sqlalchemy import *
from sqlalchemy import ForeignKey
from sqlalchemy.ext.declarative import declarative_base
from sqlalchemy.orm import sessionmaker, relationship, backref

# Debug engine prints out all SQL activity to console; uncomment to use
# engine = create_engine('sqlite:///:memory:', echo=True)

leoniedu

plot.heat <- function(tmp,state.map,z,title=NULL,breaks=NULL,cex.legend=1,bw=.2,col.vec=NULL,main=NULL,plot.legend=TRUE, ...) {
    tmp@data$zCat <- cut(tmp@data[,z],breaks,include.lowest=TRUE)
    cutpoints <- levels(tmp@data$zCat)
    if (is.null(col.vec)) col.vec <- heat.colors(length(levels(tmp@data$zCat)))
    cutpointsColors <- col.vec
    levels(tmp@data$zCat) <- cutpointsColors
    cols <- as.character(tmp$zCat)
    ##cols <- "white"
    plot(tmp,border=cols, lwd=bw,axes = FALSE, las = 1,col=as.character(tmp@data$zCat),main="A", ...)
    if (!is.null(state.map)) {

hadley

mid_range <- function(x) mean(range(x, na.rm = TRUE))
centres <- ddply(county_df, c("state", "county"), summarise, 
  lat = mid_range(lat), 
  long = mid_range(long)
)

bubbles <- merge(centres, unemp, by = c("state", "county"))
ggplot(bubbles, aes(long, lat)) +
  geom_polygon(aes(group = group), data = state_df, 
    colour = "white", fill = NA) +