# NOT RUN {
# }
# NOT RUN {
# 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=150,writeToFile=FALSE,verbose=FALSE)
# Create an 'actor' network using \code{CreateActorNetwork}
g_actor_twitter <- CreateActorNetwork(myTwitterData)
# Create a 'bimodal' network using \code{CreateBimodalNetwork}
g_bimodal_twitter <- CreateBimodalNetwork(myTwitterData)
# Create a 'semantic' network using \code{CreateSemanticNetwork}
g_semantic_twitter <- CreateSemanticNetwork(myTwitterData)
# }
Run the code above in your browser using DataLab