reward_model

R

library(ChannelAttributionPro)

token <- "yourtoken"

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

D_variables <- data.frame(
  variable = c(
    "direct_searches",
    "facebook_impressions",
    "facebook_cost",
    "google_impressions",
    "google_clicks",
    "google_cost"
  ),
  channel = c(
    "direct",
    "facebook_ads",
    "facebook_ads",
    "google_ads",
    "google_ads",
    "google_ads"
  ),
  measure = c(
    "direct_searches",
    "impressions",
    "cost",
    "impressions",
    "clicks",
    "cost"
  ),
  stringsAsFactors = FALSE
)

target <- "revenue"

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

print(head(res))