## Not run: ------------------------------------
# ## This example shows how to collect Facebook page data and create a bimodal network
#
# # Use your own values for myAppID and myAppSecret
# myAppID <- "123456789098765"
# myAppSecret <- "abc123abc123abc123abc123abc123ab"
#
# # Authenticate with the Facebook API using `AuthenticateWithFacebookAPI`
# fb_oauth <- AuthenticateWithFacebookAPI(appID=myAppID, appSecret=myAppSecret,
# extended_permissions=FALSE, useCachedToken=TRUE)
#
# # Run the `CollectDataFacebook` function and store the results in variable `myFacebookData`
# myFacebookData <- CollectDataFacebook(pageName="StarWars", rangeFrom="2014-05-15",
# rangeTo="2014-06-03",writeToFile=FALSE,verbose=TRUE)
#
# # Create a 'bimodal' network using \code{CreateBimodalNetwork}
# g_bimodal_facebook <- CreateBimodalNetwork(myFacebookData)
#
# # View descriptive information about the bimodal network
# g_bimodal_facebook
## ---------------------------------------------
Run the code above in your browser using DataLab