Skip to content

Instantly share code, notes, and snippets.

@emraher
emraher / PyFrackETL.py
Created Jul 12, 2016 — forked from KhepryQuixote/PyFrackETL.py
Python scripts to download, extract, and output oil, gas, and/or fracking well information from various states in the United States of America.
View PyFrackETL.py
# -*- coding: utf-8 -*-
'''
This Python script is oriented towards oil, gas, and fracking well
information download, extract, and output at the state-level within
the United States of America. Not all states are present as not all
states either allow fracking or have any sites available for download.
This Python script is dependent upon another Python script entitled
Src2Tgt.py, which is also available as a Gist under the same name.
@emraher
emraher / growl.notify.R
Last active Apr 12, 2016
Send Growl notifications from R (RStudio, R GUI or R console) - Requires growlnotify / Similar to https://goo.gl/dtP4eH
View growl.notify.R
growl.notify <- function(msg = "Operation complete") {
in.osx <- (Sys.info()['sysname'] == "Darwin")
in.rstudio <- (Sys.getenv("RSTUDIO") == "1")
in.rgui <- (Sys.getenv("R_GUI_APP_REVISION") != "")
dir.notifier <- system("which growlnotify", intern = TRUE)
if (in.rstudio) { # hack to see if running in RStudio
title <- "RStudio"
}
@emraher
emraher / notify.R
Last active Mar 25, 2016 — forked from uribo/notify.R
Send OS X notifications from R (RStudio, R GUI or R console) - Requires Terminal Notifier --> brew install terminal-notifier
View notify.R
notify <- function(msg="Operation complete") {
in.osx <- (Sys.info()['sysname'] == "Darwin")
in.rstudio <- (Sys.getenv("RSTUDIO") == "1")
in.rgui <- (Sys.getenv("R_GUI_APP_REVISION") != "")
dir.notifier <- system("which terminal-notifier", intern = TRUE)
if (in.rstudio) { # hack to see if running in RStudio
title <- "RStudio"
sender <- activate <- "org.rstudio.RStudio"
View prism_extract.R
##Following libraries need to be installed for running the program
##by using the install.packages(c(“raster”,”rgdal”,”ncdf”,”gdata”))
library(raster)
library(ncdf)
library(rgdal)
library(gdata)
#Using setwd to direct the unzipped .bil files like
setwd(“D:/Weather/PRISM_ppt_stable_4kmD1_20130101_20131231_bil”)
#******************************************************************#
#***function for merge daily data *********************************#
View raster_stack.R
library(raster)
library(rgdal)
library('rgbif')
library('sp')
library('maptools')
library('rgeos')
library('scales')
# library(rts) #for raster time series http://r-gis.net/?q=rts
library(ggplot2)
library(reshape)
@emraher
emraher / unzip.sh
Created Mar 19, 2016
Recursively unzip
View unzip.sh
#
# I used this command to recursively unzip the files I downloaded from PRISM.
# Data is structured as
#
# tmin
# -- 1981
# ----xxx.zip
# ----xxy.zip
# -- 1982
# ----xxx.zip
View findsimilar.py
from whoosh.index import open_dir
from whoosh.index import create_in
from whoosh.fields import *
from whoosh.qparser import QueryParser
import glob
import os
# USER SET PARAMETERS ############
@emraher
emraher / osx-for-hackers.sh
Created Oct 22, 2015 — forked from matthewmueller/osx-for-hackers.sh
OSX for Hackers (Mavericks/Yosemite)
View osx-for-hackers.sh
# OSX for Hackers (Mavericks/Yosemite)
#
# Source: https://gist.github.com/brandonb927/3195465
#!/bin/sh
# Some things taken from here
# https://github.com/mathiasbynens/dotfiles/blob/master/.osx
# Ask for the administrator password upfront
View GIF-Screencast-OSX.md

OS X Screencast to animated GIF

This gist shows how to create a GIF screencast using only free OS X tools: QuickTime, ffmpeg, and gifsicle.

Screencapture GIF

Instructions

To capture the video (filesize: 19MB), using the free "QuickTime Player" application:

View coefficent_plot_walkthrough.R
doInstall <- TRUE
toInstall <- c("ggplot2")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)
ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv")
ANES <- ANES[ANES$year == 2008, -c(1, 11, 17)] # Limit to just 2008 respondents,
head(ANES) # remove some non-helpful variables
# Fit several models with the same DV: