# NOT RUN {
# }
# 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
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab