Data Science, Statistics, Analytics, Experiment, Causality.
<- sample(c(0,1), 1000, replace = TRUE, prob = c(0.2, 0.8)) subscribed <- ifelse(likes_movies, x1, x2) engagement <- 30 + 100 * likes_movies + 20 * subscribed + rnorm(1000, 0, 10) dat <- data.table(likes_movies, subscribed, engagement) dat_agg <- dat[,.(avg_engagement = round(mean(engagement), 2),