public-mirrors/NewsBlur
1
0
Fork 0
mirror of https://github.com/samuelclay/NewsBlur.git synced 2025-04-13 09:42:01 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding experimental recommendations in R.

Browse source
This commit is contained in:
Samuel Clay 2014-03-17 14:49:59 -07:00
parent c3d7f0670d
commit d1733cda21
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
r/recs.r Normal file
View file

@ -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
}
}