density.R

# looking at some data with @neilkod

myData <- read.csv("http://www.neilkodner.com/10kreads.csv")
plot(density(myData$X1))

#holy shit that's a big spike at the low values. Let's look at the tail
plot(density(subset(myData, X1 > 3)$X1))

plot(density(subset(myData, X1 > 5)$X1))

plot(density(subset(myData, X1 > 10)$X1))

plot(density(subset(myData, X1 > 20)$X1))

#fractal scaling is fun! ;)