drewconway

# File-Name:       twitter_word_cloud.R           
# Date:            2011-01-30                                
# Author:          Drew Conway
# Email:           drew.conway@nyu.edu                                      
# Purpose:         Create a comparative word cloud of two twitter hashtags
# Data Used:       
# Packages Used:   twitteR, tm, ggplot2
# Output File:     Hashtag word cloud
# Data Output:     
# Machine:         Drew Conway's MacBook Pro

drewconway

#!/usr/bin/env python
# encoding: utf-8

import smtplib
from datetime import datetime


def noticeEMail(starttime, usr, psw, fromaddr, toaddr):
    """
    Sends an email message through GMail once the script is completed.  

drewconway

# Generate digitial clock face
first.nine <- c('00', '01', '02', '03', '04', '05', '06', '07', '08', '09')
hours <- c(first.nine, as.character(seq(10,23,1)))
mins <- c(first.nine, as.character(seq(10,59,1)))
time.chars.l <- lapply(hours, function(h) paste(h, ':', mins, sep=''))
time.chars <- do.call(c, time.chars.l)

# Generate analog clock face
hour.pos <- seq(0, 12, 12/(12*60))[1:720]
min.pos <-seq(0,12, 12/60)[1:60]

drewconway

draft.sequence <- c()
rep.count <- floor((num.teams*15)/(2*num.teams))
draft.order <- rep(c(1:num.teams, rev(1:num.teams)), rep.count)
draft.order <- c(draft.order, 1:num.teams)

#Function for 
make.pick <- function(team_num) {
  team <- teams[[team_num]]
  selection.made <- FALSE
  selection.index <- 1

drewconway

library(yhatr)

model.require <- function() {
  library(plyr)
}

model.transform <- function(df) {
  df
}

drewconway

# Model only works for 15-man rosters with this format of players!
num.teams <- 10
qb <- 1
rb <- 2
wr <- 2
te <- 1
flex <- 1
def <- 1
pk <- 1
bench <- 6

drewconway

#!/usr/bin/env python
# encoding: utf-8
"""
ur1twt.py

Description: Retweets random people's first ever tweet. Fun!

Created by  (drew.conway@nyu.edu) on
# Copyright (c) , under the Simplified BSD License.  
# For more information on FreeBSD see: http://www.opensource.org/licenses/bsd-license.php

drewconway

# Get a lat/lon value for each address
geocode.addr <- function(city, country) {
	geo.url <- "http://maps.googleapis.com/maps/api/geocode/json?address="
	geo.text <- getURL(paste(geo.url, URLencode(paste(city, country, collapse="+")), "&sensor=false", sep=""))
	geo.json <- fromJSON(geo.text)
	if(geo.json$status == "OK"){
		return(geo.json$results[[1]]$geometry$location)
	}
	else{

drewconway

# Generate digitial clock face
first.nine <- c('00', '01', '02', '03', '04', '05', '06', '07', '08', '09')
hours <- c(first.nine, as.character(seq(10,23,1)))
mins <- c(first.nine, as.character(seq(10,59,1)))
time.chars.l <- lapply(hours, function(h) paste(h, ':', mins, sep=''))
time.chars <- do.call(c, time.chars.l)

# Generate analog clock face
hour.pos <- seq(0, 12, 12/(12*60))[1:720]
min.pos <-seq(0,12, 12/60)[1:60]

drewconway

import networkx as nx
from networkx.readwrite import d3_js

mikedewar = nx.read_graphml('mikedewar_rec.graphml')
	
# We need to relabel nodes as Twitter name if we want to show the names in the plot
label_dict = dict(map(lambda i : (mikedewar.nodes()[i], mikedewar.nodes(data=True)[i][1]['Label']), xrange(mikedewar.number_of_nodes())))
mikedewar_d3 = nx.relabel_nodes(mikedewar, label_dict)	

# Export