milesgrimshaw

# Load libraries
library(ggplot2)

# Set working directory
setwd("~/Dropbox (Personal)/Personal/Github/MindBody/New/")

# Read in the data
data <- read.csv('mind_new.csv', header=TRUE, as.is=TRUE)

# Convert everything to lower case

milesgrimshaw

require 'rubygems'
require 'nokogiri'
require 'pp'
require 'mechanize'
require 'open-uri'
require 'csv'


key = "## YOUR KEY HERE"

milesgrimshaw

require 'nokogiri'
require 'pp'
require 'mechanize'
require 'open-uri'
require 'csv'

page = Nokogiri::XML(open('https://www.mindbodyonline.com/clients/feed/all.xml'))
items = page.css('marker')

CSV.open("mind_new.csv", "wb") do |csv|

milesgrimshaw

require 'oauth'
require 'json'
require 'pp'
require 'csv'

consumer_key = 'NUM'
consumer_secret = 'NUM'
token = 'NUM'
token_secret = 'NUM'

milesgrimshaw

# Last Updated: 2014.06.05

# Gems to include
require	'Nokogiri'
require "open-uri"
require 'pp'
require 'json'
require 'csv'

# def get_default_data( default_stats, default_pricing, date_range )

milesgrimshaw

#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

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

##############################
#     Miles Grimshaw
#     April 15th, 2013
#     Code for graphs exploring US Economy
#     Blog Post: 
##############################

getwd()
setwd("~/Desktop/Macro_Paper/Data/")

milesgrimshaw

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

## MILES GRIMSHAW
require 'mechanize'
require 'csv'
require 'open-uri'
require "pp"
require "json"

CSV.open("immersion.csv", "wb") do |csv|

	csv << ["Text","Date"]