alaiacano

labels <- c(
  rep("a", 100*rexp(1)), 
  rep("b", 100*rexp(1)),
  rep("c", 100*rexp(1)),
  rep("d", 100*rexp(1)))
x <- data.frame(labels = factor(labels), some.value = runif(length(labels)))
qplot(labels, data=x)

alaiacano

from __future__ import division
import numpy as np
from pylab import *
from warnings import warn

class OutlierDetector(object):
    
    def __init__(self, N=10):
        """
        Generates some simple statistics on the previous N data points 

alaiacano

plotmatrix2 <- function (data, mapping = aes())
{
    grid <- expand.grid(x = 1:ncol(data), y = 1:ncol(data))
    grid <- subset(grid, x != y)
    all <- do.call("rbind", lapply(1:nrow(grid), function(i) {
        xcol <- grid[i, "x"]
        ycol <- grid[i, "y"]
        data.frame(xvar = names(data)[ycol], yvar = names(data)[xcol], 
            x = data[, xcol], y = data[, ycol], data)
    }))

alaiacano

from numpy.random import uniform
import numpy
import random

def slice_sampler(px, N = 1, x = None):
    """
    Provides samples from a user-defined distribution.
    
    slice_sampler(px, N = 1, x = None)
    

alaiacano

import numpy as np
import random

# dict to hold results                                                                    
counts = {}

# a hack to generate random key, value pairs.                                             
# 5k keys, 100k values                                                                    
x=[i%5000 for i in xrange(100000)]
random.shuffle(x)

alaiacano

my.reduce <- function(df.in, f1, f2){
  x <- ddply(df.in, .(f1, f2), summarize,
             value=sum(value)
             )
  x
}

df <- data.frame(
  state=rep(c("MA", "NY", "CA"), each=10),
  year=rep((2001:2010), 3),

alaiacano

alaiacano

"""
Input is one number per line

Output is json of the form:
[
    {
        'bin' : bin1,
        'value' : value1
    },
    {

alaiacano

{block:Posts}
    <script language="JavaScript">
    var source_url = '{block:ContentSource}{SourceURL}{/block:ContentSource}';
    var reblogged_from = '{block:RebloggedFrom}{ReblogParentName}{/block:RebloggedFrom}' + '.tumblr.com';
    if (source_url.indexOf(reblogged_from) == -1) {
        document.write('Your attribution string!');
    }
    </script>
{/block:Posts}

alaiacano

values <- c('a', 'b', 'c')
probs <- c(.2, .5, .3)

sample(values, 10, replace=TRUE, prob=probs)

# [1] "a" "b" "a" "a" "c" "a" "c" "b" "c" "b"