## Not run: ------------------------------------
# ## This example shows how to collect Twitter data and create a semantic network
#
# # Firstly specify your API credentials
# my_api_key <- "1234567890qwerty"
# my_api_secret <- "1234567890qwerty"
# my_access_token <- "1234567890qwerty"
# my_access_token_secret <- "1234567890qwerty"
#
# # Authenticate with the Twitter API using \code{AuthenticateWithTwitterAPI}
# AuthenticateWithTwitterAPI(api_key=my_api_key, api_secret=my_api_secret,
# access_token=my_access_token, access_token_secret=my_access_token_secret)
#
# # Collect tweets data using \code{myTwitterData}
# myTwitterData <- CollectDataTwitter(searchTerm="#auspol",
# numTweets=200,writeToFile=FALSE,verbose=FALSE)
#
# # Create a 'semantic' network using \code{CreateSemanticNetwork}
# g_semantic_twitter <- CreateSemanticNetwork(myTwitterData,writeToFile=FALSE,
# termFreq=20,hashtagFreq=80)
## ---------------------------------------------
Run the code above in your browser using DataLab