benmarwick

Which documents belong to each topic?

Documents don't belong to a single topic, there is a distribution of topics
over each document. 

But we can Find the topic with the highest proportion for each document.
That top-ranking topic might be called the 'topic' for the document, but note
that all docs have all topics to varying proportions

Assume that we start with `topic_docs` from the output of the mallet package

benmarwick

## Shell:

git clone --recursive https://github.com/cscheid/rcloud.git

sudo apt-get install libxt-dev libcurl4-openssl-dev libcairo2-dev libreadline-dev git

Create github app according to instructions here: https://github.com/att/rcloud

Edit conf/rcloud.conf according to instructions here: https://github.com/att/rcloud

benmarwick

Interactive charts in the browser with the rCharts package
====

learning from https://gist.github.com/ramnathv/8118442

```{r setup, cache = F}
require(knitr)
opts_chunk$set(results = "asis", comment = NA, tidy = F)
options(RCHART_WIDTH = 600, RCHART_HEIGHT = 400)
```

benmarwick

# Joseph R. Mihaljevic
# July 2013
# (Partial) Bayesian analysis of variance, accounting for heteroscedasticity
# Generate some artificial data:
# Normally distributed groups, but heteroscedastic
a <- rnorm(25, mean=8, sd=10)
b <- rnorm(50, mean=5, sd=2)
c <- rnorm(25, mean=3, sd=.1)
d <- rnorm(25, mean=11, sd=3)
e <- rnorm(50, mean=13, sd=2)

benmarwick

---
output: html_document
---
# A quick check of the availability of the UW Anthropology curriculum forecast

I have heard occasional reports from faculty and students that the curriculum forecast on the anthropology department website shows no useful data. I have also observed this myself, that the cells in the spreadsheet are sometimes empty or show dashes. Given these reports and observations I thought it would be good to study the availability of the forecast so we can make an informed decision about whether or not the current setup is meeting our needs. 

## Method

I wrote a script to automatically access the forecast webpage every 10 minutes, 24 hours per day, for ten days (script is here: [https://gist.github.com/benmarwick/11023760](https://gist.github.com/benmarwick/11023760)). The script checks to see if there are useful data in the 'this year' columns on the left side of the page and the 'next year' columns on the right side of the page. The script ran from 5 May to 15 May 2014. I informed the oth

benmarwick

# ipak function: install and load multiple R packages.
# check to see if packages are installed. Install them if they are not, then load them into the R session.

ipak <- function(pkg){
    new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
    if (length(new.pkg)) 
        install.packages(new.pkg, dependencies = TRUE)
    sapply(pkg, require, character.only = TRUE)
}

benmarwick

# load csv file downloaded from google docs at 10:30am PST, 28 April 2014 
# https://docs.google.com/spreadsheet/ccc?key=0Alr3EPKs-tcRdGhVRFNKeHVadDhHNGdGYU84Z255X1E&usp=drive_web
saa2014_1 <- read.csv("C:/Users/marwick/Downloads/SAA 2014 Tweets - Archive.csv", stringsAsFactors = FALSE)

# Second tweet archive, csv file downloaded from google docs at 10:30am PST, 28 April 2014 
# https://docs.google.com/spreadsheet/ccc?key=0Ak6w3axv7XKTdHpHdFNfeFNKMk45WFVWQkhCeGdLMWc&usp=drive_web#gid=82
saa2014_2 <- read.csv("C:/Users/marwick/Downloads/%23SAA2014 file 2 - Archive.csv", stringsAsFactors = FALSE)

# combine two files
saa2014 <- rbind(saa2014_1, saa2014_2) # 26,611 rows

benmarwick

library(devtools)
install_github("benmarwick/JSTORr")
load("~/teamviewer/five_journals/five_journals.RData")

# looking at American Antiquity, Journal of World Prehistory, World Archaeology, 

library(JSTORr)

# major groups of challenges

benmarwick

benmarwick

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console