## 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 `CollectTemporalDataFacebook` function and
# # store the results in variable `myTemporalFacebookData`
# myTemporalFacebookData <- CollectTemporalDataFacebook(pageName="StarWars",
# rangeFrom="2015-05-14",rangeTo="2015-06-04",verbose=FALSE,writeToFile=FALSE)
#
# # Create a dynamic 'bimodal' Facebook network using `CreateDynamicNetwork`
# g_bimodal_dynamic_facebook <- CreateDynamicNetwork(myTemporalFacebookData)
#
# # View descriptive information about the bimodal network
# g_bimodal_facebook
## ---------------------------------------------
Run the code above in your browser using DataLab