Tweeting from R

> library("RCurl")
> opts <- curlOptions(header = FALSE, 
+   userpwd = "[user]:[pass]", netrc = FALSE)
> tweet <- function(status){
+   method <- "http://twitter.com/statuses/update.xml?status="
+   encoded_status <- URLencode(status)
+   request <- paste(method,encoded_status,sep = "")
+   postForm(request,.opts = opts)
+ }
> xx<-rnorm(2)
> tweet(paste(xx,collapse="|"))

つぶやいた

SVMかなんかを利用して分類結果をつぶやくボットをつくっても面白いかも。