fototo

	---
	title: "Airport Wi-Fi"
	author: ""
	date: "`r sprintf('Last run: %s', format(Sys.time(), '%d %B, %Y'))`"
	output:
	html_document:
	code_download: true
	---

	```{r setup, include=FALSE}

	#load the package
	require(h2o)

	#start h2o
	localH2o <- h2o.init(nthreads = -1, max_mem_size = "20G")

	#load data on H2o
	trainh2o <- as.h2o(train)
	testh2o <- as.h2o(test)

	<script>
	try {
	document.addEventListener("DOMContentLoaded", function() {
	var accumScrollMove = 0;
	// Set it 1 msecs to avoid div by zero error
	var accumScrollTime = 1;
	var latestScrollTop = 0;
	var latestScrollAt = new Date();

	function checkScroll() {

	library(idbr)
	library(ggplot2)
	library(animation)
	library(dplyr)
	library(gganimate)

	idb_api_key("Your Census API key goes here")

	male <- idb1('IN', 2000:2050, sex = 'male') %>%
	mutate(POP = POP * -1,

	## source: https://github.com/toddwschneider/nyc-taxi-data/blob/master/analysis/analysis.R
	dropoffs = query("SELECT * FROM dropoff_by_lat_long_cab_type ORDER BY count")
	dropoffs = mutate(dropoffs, cab_type_id = factor(cab_type_id))

	p = ggplot() +
	geom_polygon(data = ex_staten_island_map,
	aes(x = long, y = lat, group = group),
	fill = "#080808", color = "#080808") +
	geom_point(data = dropoffs,
	aes(x = dropoff_long, y = dropoff_lat, alpha = count, size = count, color = cab_type_id)) +

	###############################################
	# working with complete set of 2015 play-by-play data
	# collected using the getData function in the openWAR
	# package (retrieves MLBAM GameDay files)
	# currently have this saved as a Rdata file
	###############################################
	load("alldata2015.Rdata")

	# computes the run values of all plate appearances