Permalink
Browse files

another start

  • Loading branch information...
tlevine committed Sep 20, 2012
1 parent b52a98f commit 822453179e7f9c30e125281aeb078d2e9cb0255c
Showing with 5 additions and 2 deletions.
  1. +5 −2 analysis/src/eda.R
View
@@ -7,5 +7,8 @@ for (dataset in project.info$data)
print(head(get(dataset)))
}
-yoga.top.100 <- quinoa[order(quinoa$yoga.teachers.per.capita, decreasing = T),][1:100,]
-print(yoga.top.100[1:5,])
+yoga.top.1 <- quinoa[order(quinoa$yoga.teachers.per.capita, decreasing = T),][1:100,]
+print(yoga.top.1[1:5,])
+
+yoga.top.2 <- subset(quinoa[order(quinoa$yoga.teachers.per.capita, decreasing = T),],yoga.teachers > 1)[1:10,]
+print(yoga.top.2[1:5,])

0 comments on commit 8224531

Please sign in to comment.