Skip to content

Instantly share code, notes, and snippets.

View alexstorer's full-sized avatar

Alex Storer alexstorer

View GitHub Profile
@alexstorer
alexstorer / gist:4953783
Created February 14, 2013 16:03
Here is the RT script we worked on.
<script type="text/javascript">
shuffle = function(o){ //v1.0
for(var j, x, i = o.length; i; j = parseInt(Math.random() * i), x = o[--i], o[i] = o[j], o[j] = x);
return o;
};
document.onkeyup = KeyCheck;
var input = new Array();
fname <- 'a1.txt'
ds <- read.csv(fname,col.names = c('Date','Time','File','TimeElapsed','SongTime'),header=FALSE,stringsAsFactors=FALSE)
ds$Date <- as.Date(ds$Date)
ds$Name <- fname
timelist <- strsplit(ds$Time,split=':')
for (i in 1:length(timelist)) {
hr <- timelist[[i]][[1]]
mn <- timelist[[i]][[2]]
@alexstorer
alexstorer / gist:5189914
Created March 18, 2013 19:10
Real Time Twittering!
import twitter
import json
import pickle
import time
import random
import sys
import csv
import twitter__login
# log in, and collect statuses containing a keyword
@alexstorer
alexstorer / gist:5322931
Created April 5, 2013 21:49
Text Analysis Examples
# This is an exploration of topic modeling
# First, let's load up this pile of things.
Sys.setenv(NOAWT=TRUE)
# This is a workaround for Macs
library(tm)
library(Snowball)
# Run the topics script first to load everything up.
npi[npidtm$fd>0,c('NPI_Description','aotitle',"plocstatename","ploccityname")]
outp <- textvec[grep('FD',textvec)]
grep('FIRE',outp)
outp[grep('FIRE',outp,invert=TRUE)]
npidtm$labelhospital <- 0
hospinds <- grep("HOSPITAL",textvec)
@alexstorer
alexstorer / data.tsv
Last active December 16, 2015 03:49
Plots for pdurbin!
We can make this file beautiful and searchable if this error is corrected: It looks like row 2 should actually have 1 column, instead of 2 in line 1.
time seconds
1365781233.31362 0.815643072128296
1365781253.95795 0.829960107803345
1365781332.08635 0.819650888442993
1365781371.6965 0.817964792251587
1365781407.32883 1.21638607978821
@alexstorer
alexstorer / intro.Rmd
Last active December 16, 2015 16:08
Introduction to R - Data Scientist Training for Librarians http://rpubs.com/alexplanation/dst4l
Introduction to R
========================================================
This file is online!
http://rpubs.com/alexplanation/dst4l
https://gist.github.com/alexstorer/5460479
@alexstorer
alexstorer / gist:5495736
Created May 1, 2013 14:53
Using signal in python for molly!
def handler(signum, frame):
raise Exception('Last Resort!')
signal.signal(signal.SIGALRM, handler)
def tryOpenParse(thisurl):
global parser
#print "trying to parse " + thisurl
print "trying to parse..."
loaded = False
@alexstorer
alexstorer / gist:5504252
Created May 2, 2013 18:28
SPSS reshaping.
VARSTOCASES
/MAKE stimulus1 from Task_1#1_stimulus Task_1#2_stimulus Task_1#3_stimulus Task_1#4_stimulus Task_1#5_stimulus Task_1#6_stimulus Task_1#7_stimulus Task_1#8_stimulus Task_1#9_stimulus Task_1#10_stimulus Task_1#11_stimulus Task_1#12_stimulus Task_1#13_stimulus Task_1#14_stimulus Task_1#15_stimulus Task_1#16_stimulus Task_1#17_stimulus Task_1#18_stimulus Task_1#19_stimulus Task_1#20_stimulus
/MAKE latency1 from Task_1#1_latency Task_1#2_latency Task_1#3_latency Task_1#4_latency Task_1#5_latency Task_1#6_latency Task_1#7_latency Task_1#8_latency Task_1#9_latency Task_1#10_latency Task_1#11_latency Task_1#12_latency Task_1#13_latency Task_1#14_latency Task_1#15_latency Task_1#16_latency Task_1#17_latency Task_1#18_latency Task_1#19_latency Task_1#20_latency
/MAKE CORRECT_latency1 from Task_1#1_CORRECT_latency Task_1#2_CORRECT_latency Task_1#3_CORRECT_latency Task_1#4_CORRECT_latency Task_1#5_CORRECT_latency Task_1#6_CORRECT_latency Task_1#7_CORRECT_latency Task_1#8_CORRECT_latency Task_1#9_CORRECT_late
#!/usr/env python
from subprocess import call
import datetime
import os
import xlrd
import csv
def csv_from_excel():