if (FALSE) {
data("testdt_tracking")
wt <- as.wt_dt(testdt_tracking)
wt <- add_duration(wt)
wt <- suppressWarnings(extract_domain(wt))
# create incidence matrix using domains as second mode
incidence <- audience_incidence(wt)
# create incidence matrix using hosts as second mode
wt <- suppressWarnings(extract_host(wt))
incidence <- audience_incidence(wt, mode2 = "host")
}
Run the code above in your browser using DataLab