# NOT RUN {
token <- "YOURTOKEN"
account_id <- "act_20846447"
#BASIC 1: Create and return data for a new prediction
basic1 <- fb_rf(token, account_id, destination_ids = 187071108930, countries = "AR")
# BASIC 2: Fetch data for an existing prediction ID
basic2 <- fb_rf(token, account_id, prediction = 6260368700774)
# ADVANCED (Fully custom prediction)
advanced <- fb_rf(token, account_id,
objective = 'REACH',
days = 28,
budget = 2000000,
destination_ids = c(187071108930, 1142958119078556),
age_min = 15,
age_max = 65,
genders = 2,
countries = "MX",
publisher_platforms = c(
'facebook',
'instagram',
#'audience_network',
'messenger'),
#interests_ids = NA,
facebook_positions = c(
'feed',
#'instant_article',
'marketplace',
'video_feeds',
'story',
'search',
'instream_video'),
instagram_positions = c(
'stream',
'story',
'explore'),
# audience_network_positions = c(
# 'classic',
# 'instream_video')
messenger_positions = c(
'messenger_home',
'sponsored_messages',
'story'),
device_platforms = c(
'mobile',
'desktop'))
# }
Run the code above in your browser using DataLab