aronlindberg

structure(list(T1 = structure(c(4L, 1L, 1L, 1L, 1L), .Label = c("*", 
"assigned", "closed", "discussed", "mentioned", "merged", "opened", 
"referenced", "reopened", "reviewed", "subscribed", "unsubscribed", 
"*", "%"), class = "factor"), T2 = structure(c(11L, 7L, 4L, 7L, 
4L), .Label = c("*", "assigned", "closed", "discussed", "mentioned", 
"merged", "opened", "referenced", "reopened", "reviewed", "subscribed", 
"unsubscribed", "*", "%"), class = "factor"), T3 = structure(c(1L, 
1L, 1L, 1L, 1L), .Label = c("*", "assigned", "closed", "discussed", 
"mentioned", "merged", "opened", "referenced", "reopened", "reviewed", 
"subscribed", "unsubscribed", "*", "%"), class = "factor"), T4 = structure(c(4L, 

aronlindberg

Pull Request ID
642
630
623
643
626
638
646
644
645

aronlindberg

structure(list(mel = list(structure(list(inl = 787L, outl = 787L, 
    atl = structure(list(na = FALSE), .Names = "na")), .Names = c("inl", 
"outl", "atl")), structure(list(inl = 133L, outl = 1173L, atl = structure(list(
    na = FALSE), .Names = "na")), .Names = c("inl", "outl", "atl"
)), structure(list(inl = 133L, outl = 133L, atl = structure(list(
    na = FALSE), .Names = "na")), .Names = c("inl", "outl", "atl"
)), structure(list(inl = 336L, outl = 133L, atl = structure(list(
    na = FALSE), .Names = "na")), .Names = c("inl", "outl", "atl"
)), structure(list(inl = 787L, outl = 336L, atl = structure(list(
    na = FALSE), .Names = "na")), .Names = c("inl", "outl", "atl"

aronlindberg

structure(list(ok = TRUE, content = list(structure(list(sha = "0d218844b2c56759f7f7c8f6988f1254dc6d02f8", 
    filename = "Rakefile", status = "modified", additions = 1L, 
    deletions = 7L, changes = 8L, blob_url = "https://github.com/rails/rails/blob/f1637bf2bb00490203503fbd943b73406e043d1d/Rakefile", 
    raw_url = "https://github.com/rails/rails/raw/f1637bf2bb00490203503fbd943b73406e043d1d/Rakefile", 
    contents_url = "https://api.github.com/repos/rails/rails/contents/Rakefile?ref=f1637bf2bb00490203503fbd943b73406e043d1d", 
    patch = "@@ -13,7 +13,7 @@ task :build => \"all:build\"\n desc \"Release all gems to gemcutter and create a tag\"\n task :release => \"all:release\"\n \n-PROJECTS = %w(activesupport activemodel actionpack actionmailer activeresource activerecord railties)\n+PROJECTS = %w(activesupport activemodel actionpack actionmailer activerecord railties)\n \n desc 'Run all tests by default'\n task :default => %w(test test:isolated)\n@@ -109,11 +109,6 @@ RDoc::Task.new do |rdoc|\n   rdoc.rdo

aronlindberg

list(structure(list(ok = TRUE, content = list(structure(list(
    sha = "2e39d0dbc2e1cccac2f2735fcf4534f9ff2f1e21", filename = "actionpack/lib/action_dispatch/http/url.rb", 
    status = "modified", additions = 6L, deletions = 4L, changes = 10L, 
    blob_url = "https://github.com/rails/rails/blob/797b8c2d13593d3c286cb7943c29df6928d397fa/actionpack/lib/action_dispatch/http/url.rb", 
    raw_url = "https://github.com/rails/rails/raw/797b8c2d13593d3c286cb7943c29df6928d397fa/actionpack/lib/action_dispatch/http/url.rb", 
    contents_url = "https://api.github.com/repos/rails/rails/contents/actionpack/lib/action_dispatch/http/url.rb?ref=797b8c2d13593d3c286cb7943c29df6928d397fa", 
    patch = "@@ -1,7 +1,9 @@\n module ActionDispatch\n   module Http\n     module URL\n-      # Returns the complete \\URL used for this request.\n+      mattr_accessor :tld_length\n+\n+      # Returns the complete URL used for this request.\n       def url\n         protocol + host_with_port + fullpath\n       end\n@@ -85,13 +87,13 @@ de

aronlindberg

10
16
25
26
28
48
68
76
81
94

aronlindberg

#' Digest the Link header in a paginated result.
#' 
#' Converts the Link header from a monolithic string to a usable data.frame.
#' 
#' The GitHub API automatically paginates when the number of requested items 
#' exceeds the number of items per page. When this occurs, the result returned 
#' by the server will include a Link header that provides the URLs for other 
#' pages of results, such as the next page and the last page. These assorted 
#' URLs are catenated in a single string and this function converts that 
#' information into a data.frame that is useful for traversing the pages.

aronlindberg

setwd("/Users/Aron/Dropbox/Projects/dendrogramming/")
library(TraMineR)
library(dendextend)
library(pvclust)
set.seed(1L)

generate <- read.csv(file = "MEP_R_Generate.csv", header = TRUE)
negotiate <- read.csv(file = "MEP_R_Negotiate.csv", header = TRUE)
transfer <- read.csv(file = "MEP_R_Transfer.csv", header = TRUE)
validate <- read.csv(file = "MEP_R_Validate.csv", header = TRUE)

aronlindberg

library(data.table)
# install.packages(c("data.table", "quantmod"))
library(data.table)
library(quantmod)
library(jsonlite)
item_title = "Obelisk"
item_id = "29668"
region_id = "10000002"
query_addr = paste0("http://public-crest.eveonline.com/market/",region_id,"/types/",item_id,"/history/")
market.json <- fromJSON(readLines(query_addr))

aronlindberg

list(structure(list(ok = FALSE, content = structure(list(message = "Not Found", 
    documentation_url = "https://developer.github.com/v3"), .Names = c("message", 
"documentation_url")), headers = structure(list(server = "GitHub.com", 
    date = "Wed, 18 Feb 2015 17:51:44 GMT", `content-type` = "application/json; charset=utf-8", 
    `transfer-encoding` = "chunked", status = "404 Not Found", 
    `x-ratelimit-limit` = "5000", `x-ratelimit-remaining` = "4996", 
    `x-ratelimit-reset` = "1424284823", `x-oauth-scopes` = "", 
    `x-accepted-oauth-scopes` = "", `x-oauth-client-id` = "3f2c05f63b3d9cebf87f", 
    `x-github-media-type` = "github.v3", `x-xss-protection` = "1; mode=block", 
    `x-frame-options` = "deny", `content-security-policy` = "default-src 'none'",