Kyle G. Lundstedt kylelundstedt

## gist:6e25270e8a547daf89637431864d339b
Verifying my Blockstack ID is secured with the address 1HjktKg7DR23M71AWshmCY3WEZAtoH4AUV https://explorer.blockstack.org/address/1HjktKg7DR23M71AWshmCY3WEZAtoH4AUV

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                kylelundstedt
                / keybase.md
            
            
              Created
              September 13, 2017 18:18
            
              
                Keybase proof
              
          
    Keybase proof

I hereby claim:

I am kylelundstedt on github.
I am kylelundstedt (https://keybase.io/kylelundstedt) on keybase.
I have a public key ASDlH8zSRY1U3eJoDkb49Pdnpqjk56-zMPRrXNmp23qSigo

To claim this, I am signing this object:

  
## gist:7ed0e5370998286fb61af28fecf7907f
Verifying that "kylelundstedt.id" is my Blockstack ID. https://onename.com/kylelundstedt

## gist:23f55f284b317c98b894567da7dea28a
Verifying that +kylelundstedt is my blockchain ID. https://onename.com/kylelundstedt

## presidents.r
library(ggplot2)
library(dplyr)
library(gridExtra)

pres <- structure(list(last_name = c("Washington", "Adams", "Jefferson",
"Madison", "Monroe", "Adams", "Jackson", "VanBuren", "Harrison",
"Tyler", "Polk", "Taylor", "Filmore", "Pierce", "Buchanan", "Lincoln",
"Johnson", "Grant", "Hayes", "Garfield", "Arthur", "Cleveland",
"Harrison", "Cleveland", "McKinley", "Roosevelt", "Taft", "Wilson",
"Harding", "Coolidge", "Hoover", "Roosevelt", "Truman", "Eisenhower",

## multi_language_rmd.Rmd
---
title: "Multi-language Machinations in [R] Markdown"
author: "Bob Rudis (@hrbrmstr)"
date: "October 22, 2015"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## update_github.R
library('devtools')
library('utils')
library('httr')

update_github <-
function(ask = TRUE, ...){
  installed <- installed.packages()
  oldVersion <- installed[,'Version']
  urls <- sapply(names(oldVersion), function(x){
    d <- packageDescription(x)

## map.R
library(data.table);
library(maps);
library(maptools);
library(spatstat);
library(zipcode);
library(GISTools)
#load the zipcode dataset
data(zipcode);


## testing123
this is a test
	library(ggplot2)
	library(dplyr)
	library(gridExtra)

	pres <- structure(list(last_name = c("Washington", "Adams", "Jefferson",
	"Madison", "Monroe", "Adams", "Jackson", "VanBuren", "Harrison",
	"Tyler", "Polk", "Taylor", "Filmore", "Pierce", "Buchanan", "Lincoln",
	"Johnson", "Grant", "Hayes", "Garfield", "Arthur", "Cleveland",
	"Harrison", "Cleveland", "McKinley", "Roosevelt", "Taft", "Wilson",
	"Harding", "Coolidge", "Hoover", "Roosevelt", "Truman", "Eisenhower",
	---
	title: "Multi-language Machinations in [R] Markdown"
	author: "Bob Rudis (@hrbrmstr)"
	date: "October 22, 2015"
	output: html_document
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = TRUE)
	```
	library('devtools')
	library('utils')
	library('httr')

	update_github <-
	function(ask = TRUE, ...){
	installed <- installed.packages()
	oldVersion <- installed[,'Version']
	urls <- sapply(names(oldVersion), function(x){
	d <- packageDescription(x)
	library(data.table);
	library(maps);
	library(maptools);
	library(spatstat);
	library(zipcode);
	library(GISTools)
	#load the zipcode dataset
	data(zipcode);