trengrj

library(DBI)
library(RSQLite)

con <- dbConnect(SQLite(), "places.sqlite")

alltables = dbListTables(con)

hosts = dbGetQuery( con,'select * from moz_hosts order by frecency desc' )

places = dbGetQuery( con,'select * from moz_places order by visit_count desc' )

trengrj

library(tm)  

docs = Corpus(VectorSource(places$title))
docs <- tm_map(docs, removePunctuation) 
docs <- tm_map(docs, tolower) 
docs <- tm_map(docs, removeWords, c("bad","words"))
docs <- tm_map(docs, removeWords, stopwords("english")) 
docs <- tm_map(docs, stripWhitespace)  
docs <- tm_map(docs, PlainTextDocument) 

trengrj

library(ggplot2)
library(wordcloud)


p <- ggplot(subset(wf, freq>40), aes(word, freq))
p <- p + geom_bar(stat="identity") 
p 


wordcloud(names(freq), freq, min.freq=10)

trengrj

# -*- mode: ruby -*-
# vi: set ft=ruby :
 
# Vagrant on AWS Example

# Provisioning script
provision_script = <<SCRIPT
#!/bin/bash
SYNC_DIRECTORY=/home/ubuntu/sync
sudo apt-get update

trengrj

Keybase proof

I hereby claim:

• I am trengrj on github.
• I am trengrj (https://keybase.io/trengrj) on keybase.
• I have a public key whose fingerprint is 3366 CBCB C47B 352E 6BB3 64C5 ECD9 D7B0 15D9 1226

To claim this, I am signing this object:

trengrj