James Thomson jamesthomson
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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))) { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| install.packages("devtools") | |
| library("devtools") | |
| install_github("jamesthomson/R2D3") |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(SpotifyAPI) | |
| out<-visDiscography(artist="Shuggie Otis", output_file="Shuggie Disco.html") |
jamesthomson
/ r2d3 demo.R
Created
August 16, 2014 11:08
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ bpi_plotly.R
Created
August 30, 2014 15:42
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ Timing a Neural Net Scoring Process.R
Created
November 5, 2014 21:28
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ lastfmApp_ui.R
Created
December 6, 2014 13:19
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # ui.R | |
| library(shiny) | |
| shinyUI(fluidPage( | |
| titlePanel("Lastfm Dashboard"), | |
| sidebarLayout(position ="left", | |
| sidebarPanel( | |
| img(src = "logo.png", height = 80, width = 80), |
jamesthomson
/ lastfmApp_server.R
Last active
August 29, 2015 14:10
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #server.r | |
| library(shiny) | |
| shinyServer(function(input, output) { | |
| library(rjson) | |
| library(ggplot2) | |
| library(grid) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ msd_song_length_analysis.sql
Last active
August 29, 2015 14:11
msd song length analysis
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| DROP TABLE IF EXISTS msd_data; | |
| CREATE EXTERNAL TABLE msd_data | |
| ( | |
| ref string, | |
| analysis_sample_rate float , | |
| artist_7digitalid int , | |
| artist_familiarity float , |
OlderNewer