## Not run: ------------------------------------
#   ## This example shows how to collect YouTube comments data and create an actor network
# 
#   # Use your own Google Developer API Key here:
#   myApiKey <- "1234567890"
# 
#   # Authenticate with the Google API
#   apiKeyYoutube <- AuthenticateWithYoutubeAPI(apiKeyYoutube=myApiKey)
# 
#   # Generate a vector of YouTube video IDs to collect data from
#   # (or use the function `GetYoutubeVideoIDs` to automatically
#   # generate from a plain text file of video URLs)
#   videoIDs <- c("W2GZFeYGU3s","mL27TAJGlWc")
# 
#   # Collect the data using function `CollectDataYoutube`
#   myYoutubeData <- CollectDataYoutube(videoIDs,apiKeyYoutube,writeToFile=FALSE)
# 
#   # Create an 'actor' network using the function `CreateActorNetwork`
#   g_actor_youtube <- CreateActorNetwork(myYoutubeData)
# 
#   # Description of actor network
#   g_actor_youtube
## ---------------------------------------------
Run the code above in your browser using DataLab