From d1733cda21ac81cbb267306721ea052e44943c5b Mon Sep 17 00:00:00 2001
From: Samuel Clay <samuel@ofbrooklyn.com>
Date: Mon, 17 Mar 2014 14:49:59 -0700
Subject: [PATCH] Adding experimental recommendations in R.

---
 r/recs.r | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 r/recs.r

diff --git a/r/recs.r b/r/recs.r
new file mode 100644
index 000000000..495c5bbcc
--- /dev/null
+++ b/r/recs.r
@@ -0,0 +1,18 @@
+library(RPostgreSQL)
+drv = dbDriver("PostgreSQL")
+db <- dbConnect(drv, dbname="newsblur", user="newsblur")
+query = "SELECT user_id, feed_id, is_trained FROM reader_usersubscription"
+data = dbGetQuery(db, query)
+
+common_users_by_id <- function(feed1, feed2) {
+    subs1 <- subset(data, feed_id=feed1)
+    subs2 <- subset(data, feed_id=feed2)
+    subs_sameset <- intersect(subs1['user_id'],
+                              subs2['user_id'])
+    if (length(subs_sameset) > 0) {
+        NA
+    } else {
+        subs_sameset
+    }
+}
+