shapley R Code

R

#Load library and data

library(ChannelAttributionPro)

data(PathData)

password="yourpassword"

download.file(url="https://channelattribution.net/csv/Data.csv","Data.csv")

#Perform transaction level attribution reading data from a data.frame

res=shapley(Data=Data, var_path="path", var_conv="total_conversions", 
            var_value="total_conversion_value", 
            var_null="total_null", cha_sep=">", password=password)
path_attribution=res$attribution
print(path_attribution,max=100)

#Perform transaction level attribution using 
#the classical Shapley value formula instead of fast variation

res=shapley(Data=Data, var_path="path", var_conv="total_conversions", 
            var_value="total_conversion_value", var_null="total_null", 
            cha_sep=">", flg_simplified=0, flg_write_paths=1, password=password)
path_attribution=res$attribution
print(path_attribution,max=100)

#Return non converting paths in the output data.frame

res=shapley(Data=Data, var_path="path", var_conv="total_conversions", 
            var_value="total_conversion_value", 
            var_null="total_null", cha_sep=">", flg_write_nulls=1, password=password)
path_attribution=res$attribution
print(path_attribution,max=100)

#Return paths in the output data.frame

res=shapley(Data=Data, var_path="path", var_conv="total_conversions", 
            var_value="total_conversion_value", 
            var_null="total_null", cha_sep=">", flg_write_paths=1, password=password)
path_attribution=res$attribution
print(path_attribution,max=100)

#Perform transaction level attribution reading data from a file and write output to file

res=shapley(Data="Data.csv", var_path="path", var_conv="total_conversions", 
            var_value="total_conversion_value", 
            var_null="total_null", cha_sep=">", row_sep=";", file_output="ouput.csv", 
            password=password)
print(res)
R​

R
