Skip to content

Instantly share code, notes, and snippets.

View jamesthomson's full-sized avatar

James Thomson jamesthomson

26 followers · 3 following
View GitHub Profile
@jamesthomson
jamesthomson / HClust_Dendogram.R
Last active June 10, 2016 18:11
R HClust to d3.js Dendogram
library(rjson)
#convert output from hclust into a nested JSON file
HCtoJSON<-function(hc){
labels<-hc$labels
merge<-data.frame(hc$merge)
for (i in (1:nrow(merge))) {
@jamesthomson
jamesthomson / install from github.R
Created July 30, 2014 16:41
install R package from github
install.packages("devtools")
library("devtools")
install_github("jamesthomson/R2D3")
@jamesthomson
jamesthomson / gist:d68002a7d80de7a2095c
Created August 10, 2014 11:55
visdisco
library(SpotifyAPI)
out<-visDiscography(artist="Shuggie Otis", output_file="Shuggie Disco.html")
@jamesthomson
jamesthomson / r2d3 demo.R
Created August 16, 2014 11:08
data(counties)
JSON<-jsonNestedData(structure=counties[,1:3], values=counties[,4], top_label="UK")
D3Tree(JSON, file_out="Tree.html")
hc.ave <- hclust(dist(USArrests), "ave")
hc.single <- hclust(dist(USArrests), "single")
hc.ward <- hclust(dist(USArrests), "ward.D")
cut.ave<-cutree(hc.ave, k=6)
@jamesthomson
jamesthomson / bpi_plotly.R
Created August 30, 2014 15:42
bpi_genre_sales_perc <- read.csv("http://myinspirationinformation.com/wp-content/uploads/2014/08/bpi_genre_sales_perc.csv")
bpi_sales_revenue <- read.csv("http://myinspirationinformation.com/wp-content/uploads/2014/08/bpi_sales_revenue.csv")
library(ggplot2)
library(reshape2)
library(ggthemes)
library(plotly)
sales_perc_melt<-melt(bpi_genre_sales_perc)
sales_perc_albums<-sales_perc_melt[sales_perc_melt$Type=="Albums",]
@jamesthomson
jamesthomson / Timing a Neural Net Scoring Process.R
Created November 5, 2014 21:28
library(nnet)
library(ggplot2)
neuralNetScoreTime<-function(var, score){
modelset<-NULL
for (i in 1:var) {
eval(parse(text=paste0("temp.", i, "<-rnorm(150, mean=1, sd=1)")))
eval(parse(text=paste0("modelset<-cbind(modelset, temp.", i, ")")))
@jamesthomson
jamesthomson / lastfmApp_ui.R
Created December 6, 2014 13:19
# ui.R
library(shiny)
shinyUI(fluidPage(
titlePanel("Lastfm Dashboard"),
sidebarLayout(position ="left",
sidebarPanel(
img(src = "logo.png", height = 80, width = 80),
@jamesthomson
jamesthomson / lastfmApp_server.R
Last active August 29, 2015 14:10
#server.r
library(shiny)
shinyServer(function(input, output) {
library(rjson)
library(ggplot2)
library(grid)
@jamesthomson
jamesthomson / msd_files_list.R
Last active August 29, 2015 14:11
msd files list
library(XML)
#read url
search<-readLines('http://tbmmsd.s3.amazonaws.com/')
#convert to data.frame
df<-xmlToDataFrame(search)
#pull out files list
Files<-df$Key
#clean up NAs
Files2<-Files[!is.na(Files)]
@jamesthomson
jamesthomson / msd_song_length_analysis.sql
Last active August 29, 2015 14:11
msd song length analysis
DROP TABLE IF EXISTS msd_data;
CREATE EXTERNAL TABLE msd_data
(
ref string,
analysis_sample_rate float ,
artist_7digitalid int ,
artist_familiarity float ,