some Script R for playing with twitter data