Permalink
Browse files

thoughts

  • Loading branch information...
tlevine committed Sep 20, 2012
1 parent 50002fb commit 223d04df5ba54ce65c5d38d08e6c3aa9f4b456a4
Showing with 9 additions and 3 deletions.
  1. +8 −2 analysis/reports/eda.md
  2. +1 −1 analysis/src/eda.R
View
@@ -12,9 +12,15 @@ based on yoga teachers per capita.
* [Erwinna, Pennsylvania, 18920](http://en.wikipedia.org/wiki/Erwinna,_Pennsylvania)
(walkscore: [2](http://www.walkscore.com/score/18920))
-* [Oxnard, California, ](http://en.wikipedia.org/wiki/Oxnard,_California)
- (walkscore: [](http://www.walkscore.com/score/))
+* [Oxnard, California, 93030](http://en.wikipedia.org/wiki/Oxnard,_California)
+ (walkscore: [69](http://www.walkscore.com/score/93030))
* [Sylvester, Georgia, 31791)](http://en.wikipedia.org/wiki/Sylvester,_Georgia)
(walkscore: [0](http://www.walkscore.com/score/31791))
* [Frederick, Maryland, )](http://en.wikipedia.org/wiki/Frederick,_Maryland)
(walkscore: [](http://www.walkscore.com/score/))
+
+* [Carpinteria, California, 93013](http://en.wikipedia.org/wiki/Carpinteria,_California)
+ (walkscore: [0](http://www.walkscore.com/score/93013))
+
+I think a cool place has high yoga teachers, high walk scores, low farms and
+high *nearby* CCOF and NOP operators.
View
@@ -16,7 +16,7 @@ divide.by.zero <- function(a,b){
yoga.top.1 <- quinoa[order(quinoa$yoga.teachers / quinoa$pop, decreasing = T),][1:100,]
print(yoga.top.1[1:5,])
-yoga.top.2 <- subset(quinoa[order(quinoa$yoga.teachers / quinoa$pop, decreasing = T),],yoga.teachers > 1)[1:10,]
+yoga.top.2 <- subset(quinoa[order(quinoa$yoga.teachers / quinoa$pop, decreasing = T),],yoga.teachers > 1)[1:100,]
print(yoga.top.2[1:5,])
ccof.top <- quinoa[order(quinoa$ccof.operators, decreasing = T),][1:100,]

0 comments on commit 223d04d

Please sign in to comment.