Skip to content

Instantly share code, notes, and snippets.

View statisfactions's full-sized avatar

Ethan Brown statisfactions

14 followers · 0 following
  • Massachusetts
View GitHub Profile
@statisfactions
statisfactions / midifunctions.R
Created February 26, 2012 04:19
hack functions to generate MIDI output from R using midicv and play using timidity, with usage example at end
midi <- function(title="R-created Midi", bpm=120){
## Creates empty "midi" object that tracks can be inserted into
options(scipen=7) ## avoids writing anything here in scientific notation
## Create new data.frame and add headers
newdf <- data.frame(matrix(nrow=7,ncol=7))
names(newdf) <- c("tracknum", "time", "type","channel", "note", "velocity", "tempoonly")
newdf[1,] <- c(0,0, "Header", 1, 1, 480, NA)
newdf[2,] <- c(1,0, "Start_track", NA, NA, NA, NA)
@statisfactions
statisfactions / gist:782473
Created January 17, 2011 03:53
Estonia$newvisitors.absolute <- (Estonia$newvisitors/100) * Estonia$visitors
writeWave(DTMFBenford(Estonia$newvisitors.absolute), "EstoniaNewVisitors_Abs.wav")
@statisfactions
statisfactions / gist:782460
Created January 17, 2011 03:27
writeWave(DTMFBenford(Estonia$newvisitors), "EstoniaNewVisitors_Percent.wav")
@statisfactions
statisfactions / gist:782430
Created January 17, 2011 02:55
source("DTMFBenfordFunctions.R") # Loads DTMF functions and requires tuneR package
Estonia <- read.csv("http://scraperwiki.com/scrapers/export/metrixstation/")
writeWave(DTMFBenford(Estonia$pageviews), "EstoniaPageViews.wav")