Skip to content

Instantly share code, notes, and snippets.

View aronlindberg's full-sized avatar

Aron Lindberg aronlindberg

  • Stevens Institute of Technology
  • Hoboken, NJ
View GitHub Profile
@aronlindberg
aronlindberg / longitudinal_dataset.csv
Last active August 29, 2015 14:16
longitudinal_dataset (CSV)
We can make this file beautiful and searchable if this error is corrected: It looks like row 3 should actually have 42 columns, instead of 14 in line 2.
Year ,Citation,Has a middle-range model? (1=Y/0=N),Level ,Unit of Analysis,IT Phenomenon,Treatment of IT,Subaspect of IT,Source Theory,Source Theory's Unit of Analysis,Cited by (Google Scholar),Total Cites - last 10 years,Information Science & Library Science Citations (ISI Web of Science - SSCI),Total Citations by (ISI Web of Science - SSCI),% of citations in IS domain,Classification: Exploitation/Exploration,Age since 2013,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014
1990,Can Software Influence Creativity?,,1,Individual,Tests if software DSS systems can influence individual creativity,Tool , technology as performance,"DSS research, creativity research",Individual,121,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
1990,Information technology and corporate strategy: a view from the top,,1,Market,Surveys views of IT in industry across 1972-1987 and a range of industries,Nominal , Technology as absent,Theorizing on the importance of IT,Market,97,,,
@aronlindberg
aronlindberg / dput.R
Created February 20, 2015 13:41
complete dataset for subsetting for "sha"
This file has been truncated, but you can view the full file.
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'",
@aronlindberg
aronlindberg / dput
Created February 19, 2015 19:37
list_of_lists
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'",
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))
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)
10
16
25
26
28
48
68
76
81
94
This file has been truncated, but you can view the full file.
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
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
aronlindberg / graph_dput
Created January 1, 2015 17:23
graph_dput
This file has been truncated, but you can view the full file.
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"