Skip to content

Instantly share code, notes, and snippets.

View revodavid's full-sized avatar

David Smith revodavid

View GitHub Profile
## Adapted from https://gist.github.com/abresler/46c36c1a88c849b94b07
## Blog post Jan 21
## http://blog.revolutionanalytics.com/2015/01/a-beautiful-story-about-nyc-weather.html
library(checkpoint)
checkpoint("2015-01-28")
library(dplyr)
library(tidyr)
library(magrittr)
library(ggplot2)
@revodavid
revodavid / comet.R
Last active August 29, 2015 14:12
Explore comet Churyumov–Gerasimenko
library(rgl)
open3d()
comet <- readOBJ(url("http://sci.esa.int/science-e/www/object/doc.cfm?fobjectid=54726"))
shade3d(comet, col="gray")
# Run Simon Urbanek's benchmark v2.5
cat("R version\n")
cat("=========\n")
print(R.version)
if(exists("Revo.version")) {
cat("Revo version")
cat("============")
print(Revo.version)