Batmobi Channel advertising fraud
DT::datatable(Batmobi[[1]])
Amount of data without click behavior:1696
require(tidyverse)
## Loading required package: tidyverse
## ─ Attaching packages ───────────────── tidyverse 1.2.1 ─
## ✔ ggplot2 3.0.0.9000 ✔ purrr 0.2.5
## ✔ tibble 1.4.2 ✔ dplyr 0.7.5
## ✔ tidyr 0.8.1 ✔ stringr 1.3.1
## ✔ readr 1.1.1 ✔ forcats 0.3.0
## ─ Conflicts ─────────────────── tidyverse_conflicts() ─
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
DT::datatable(Batmobi[[2]] %>% filter(network1!='Batmobi'))
Amount of Click and download channel are inconsistent:3617
require(tidyverse)
DT::datatable(Batmobi[[2]] %>% filter(click_time1 - install_time==0))
Amount of Click and download interval is 0:17932
Total data:19982
Fraudulent traffic ratio: 0.9822841