reward_model

R

library(ChannelAttributionPro)

token <- "yourtoken"

Data <- read.csv("https://app.channelattribution.io/data/data_mmm.csv", sep = ",")

D_variables <- list(
  revenue = "target",
  direct_searches = "direct",
  facebook_impressions = "facebook_ads",
  facebook_cost = "facebook_ads",
  google_impressions = "google_ads",
  google_clicks = "google_ads",
  google_cost = "google_ads"
)

D_measures <- list(
  direct_searches = "direct_searches",
  facebook_impressions = "impressions",
  facebook_cost = "cost",
  google_impressions = "impressions",
  google_clicks = "clicks",
  google_cost = "cost"
)

res <- reward_model(
  Data = Data,
  D_variables = D_variables,
  D_measures = D_measures,
  max_p = 12,
  seed = 1234567,
  verbose = 1,
  password = token
)

print(head(res))