## 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="2015-05-01",
rangeTo="2015-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_facebookRun the code above in your browser using DataLab