diff --git a/retweets.pdf b/retweets.pdf
new file mode 100644
index 0000000..3632719
Binary files /dev/null and b/retweets.pdf differ
diff --git a/samattempt b/samattempt
new file mode 100644
index 0000000..312a370
--- /dev/null
+++ b/samattempt
@@ -0,0 +1,12 @@
+api_key <- 'jkbe7IOiP8ueiykQwFd6fdIQ0'
+api_secret<-''
+access_token<-''
+access_token_secret<-'f9VTbkgx3iiS16Pm8g85SXeQ2wZYSlsr0hiRLSTPguEcQ'
+setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)
+tweets = searchTwitter("edtech")
+tweets <- do.call("rbind", lapply(tweets, as.data.frame))
+View(tweets)
+counts=table(tweets$screenName)
+barplot(counts, las=2)
+hist(tweets$created, breaks = "d")
+hist(tweets$retweetCount)
diff --git a/screennamecounts.pdf b/screennamecounts.pdf
new file mode 100644
index 0000000..ab36605
Binary files /dev/null and b/screennamecounts.pdf differ