ajschumacher

#!/bin/bash

# Start an AWS instance with one of the AMIs provided by:
#  http://www.louisaslett.com/RStudio_AMI/
#
# Get this script and make executable.
#  wget THE_RAW_URL
#  chmod +x build_logins.sh
#
# Then use this script to create many logins on the system.

ajschumacher

par(pty='s')
par(mfrow=c(1, 2))

ci_lower_bound <- function(pos, n, confidence) {
  if (n == 0) return(0)
  z = qnorm(1 - (1 - confidence) / 2)
  p = pos / n
  (p + z^2 / (2*n) - z * sqrt((p * (1-p) + z^2 / (4*n)) / n )) /
    (1 + z^2 / n)

ajschumacher

longest.ordered <- function(original) {
  results <- list()
  for (item in original) {
    static_results <- results
    for (stem in static_results) {
      if (stem[length(stem)] <= item) {
        results[[length(results)+1]] <- c(stem, item)
      }
    }
    results[[length(results)+1]] <- item

ajschumacher

# oh my quiz

What the what?
: Option!
: Correct option! :

ajschumacher

test <- data.frame(state=c("Florida", "Virginia", "Texas", "California",
                           "Georgia", "North Carolina", "New York",
                           "Missouri", "Illinois", "Maryland", "Pennsylvania",
                           "Tennessee", "Colorado", "Washington", "Arizona",
                           "Ohio", "Wisconsin", "District of Columbia",
                           "Michigan", "New Jersey", "Utah", "Louisiana",
                           "Minnesota", "Alabama", "Kansas", "Massachusetts",
                           "Indiana", "South Carolina", "Arkansas", "Oregon",
                           "Nevada", "Kentucky", "Nebraska", "(not set)",
                           "Connecticut", "New Mexico", "Oklahoma",

ajschumacher

##DC Hack and Tell

#Round 4: The Christmas Invasion

Time to wrap up the Christmas Invasion and put a bow on it... Here are all the good things we saw, in non-random order!

• Aaron talked about lots of graphs made from NYC test scores.

ajschumacher

##DC Hack and Tell

#Round 3: Hack... to the Future!

And now, a wrap-up... in random order!

• Mike showed the excellent audioverb for all your language in situ needs - and it even has a youtube explanation too!
• Aaron talked about rjstat, his R package for reading and writing the JSON-stat data format.

ajschumacher

set.seed(54)
n <- rnorm(3000,0.5,0.1)
par(mar=c(1,1,3,1))
hist(c(runif(10000),runif(1900,0.35,0.65),n[abs(n-0.5)<0.15]),
     xlim=c(0,1),ylim=c(0,600),breaks=51,ylab="",#main="",
     main="Statistical Programming DC",col="#C9242D",
     axes=F, cex.main=2)

ajschumacher

movie_reviews = dict()
for line in open('movies.txt.small'):
  pieces = line.split(':')
  if len(pieces) > 1:
    key = pieces[0]
    value = ':'.join(pieces[1:]).strip()
    if key == 'product/productId':
      id = value
    if key == 'review/text':
      movie_reviews.setdefault(id, []).append(value)

ajschumacher

oh nothing, nothing...