Skip to content

Instantly share code, notes, and snippets.

@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 / brew-update-notifier.sh
Created Oct 23, 2015 — forked from SimonSimCity/brew-update-notifier.sh
Extended the script, written by @streeter to exclude the pinned formulae in the list of formulas to update.
View brew-update-notifier.sh
#!/bin/bash
#
# Notify of Homebrew updates via Notification Center on Mac OS X
#
# Author: Chris Streeter http://www.chrisstreeter.com
# Requires: terminal-notifier. Install with:
# brew install terminal-notifier
TERM_APP='/Applications/Terminal.app'
BREW_EXEC='/usr/local/bin/brew'
@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:
You can’t perform that action at this time.