Skip to content

Instantly share code, notes, and snippets.

Avatar

Miles Grimshaw milesgrimshaw

View GitHub Profile
@milesgrimshaw
milesgrimshaw / gist:4748004
Last active Dec 12, 2015
Who Are My Peers? The code I wrote to both learn R and analyze some descriptive qualities of the current Yale undergraduate student body( Classes '13, '14, '15, '16).
View gist:4748004
#Pull in the html
x <- scan("~/Dropbox/Documents/Senior Year/Spring/STAT230/YaleFacebook3.html",
what="", sep="\n")
#All the student data is within the div class='display_data'
data <- grep('display_data', x, fixed=TRUE)
#The student data is all on the next line of html. The studens variable now contains the
#line number of the html with all the data
students <- x[data+1]
#each student's info is contained within the div with class='student_text_container'
@milesgrimshaw
milesgrimshaw / gist:5172167
Created Mar 15, 2013
Obesity In The USA (Octopress Blog Post)
View gist:5172167
---
layout: post
title: "Obesity in the USA"
date: 2013-03-14 12:59
comments: true
categories:
---
<!-- Make sure to include D3 first or else the IIFEs won't work. -->
<script src="http://d3js.org/d3.v2.js"></script>
<script type="text/javascript" src="/Data/obesitystatedata.js"></script>
@milesgrimshaw
milesgrimshaw / gist:5392161
Created Apr 15, 2013
R script for making the graphs on the US economy
View gist:5392161
##############################
# Miles Grimshaw
# April 15th, 2013
# Code for graphs exploring US Economy
# Blog Post:
##############################
getwd()
setwd("~/Desktop/Macro_Paper/Data/")
@milesgrimshaw
milesgrimshaw / gist:5523271
Created May 6, 2013
R code for Personal Data Analytics
View gist:5523271
### Miles Grimshaw Code For Blog Post on Personal Data
### May 5th 2013
getwd()
setwd("~/Desktop/x_Final_Project")
library(stringr)
library(lubridate)
library(ggplot2)
@milesgrimshaw
milesgrimshaw / gist:5996636
Last active Dec 19, 2015
Merge JSON files of personal gmail header data and save as single CSV.
View gist:5996636
## MILES GRIMSHAW
require 'mechanize'
require 'csv'
require 'open-uri'
require "pp"
require "json"
CSV.open("immersion.csv", "wb") do |csv|
csv << ["Text","Date"]
View gist:5997603
library(stringr)
library(lubridate)
library(ggplot2)
library(scales)
getwd()
setwd("~/Desktop/Personal_Projects/Immersion/")
i <- read.csv("./immersion.csv", header=TRUE, as.is=TRUE)
## Only get those emails that I sent
View convert CSV to geoJSON
require 'csv'
require 'json'
require 'pp'
i = 0
features = []
start_line = []
end_line = []
## Loop through each row of the data
View openpaths data management
## Code for subsetting and formatting open paths data for Mapbox
## Miles Grimshaw
## December 26th 2013
## Set working directory and load required packages
getwd()
setwd("~/Dropbox/Personal/Mapbox/OpenPaths/")
library(stringr)
library(lubridate)
# library(ggplot2)
@milesgrimshaw
milesgrimshaw / gist:8941929
Created Feb 11, 2014
Analysis of personal Evernote notes archive
View gist:8941929
# Load packages
library(ggplot2)
library(lubridate)
library(stringr)
library(scales)
# Set the working directory
getwd()
setwd("~/Dropbox/Personal/Projects/Evernote_Analysis/files/")
View Geocoding Apps Script
function addMahZipCodez() {
// grab basic sheet data
var sheet = SpreadsheetApp.getActiveSheet();
var rows = sheet.getDataRange();
var numRows = rows.getNumRows();
var values = rows.getValues();
// init some locals for looping over each row
var row;
You can’t perform that action at this time.