> 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かなんかを利用して分類結果をつぶやくボットをつくっても面白いかも。