test-code/wtf.R

In ttrodrigz/onezero: Analysis tools for binary (0/1) data

i <- onezero::pairwise_intersection(
    data = onezero::FoodSample,
    cols = Bisque:Ribeye,
    weight = weight,
    tidy = FALSE
)

u <- onezero::pairwise_union(
    data = onezero::FoodSample,
    cols = Bisque:Ribeye,
    weight = weight,
    tidy = FALSE
)

round(i / u, 3)

pairwise_jaccard(
    data = onezero::FoodSample,
    cols = Bisque:Chili,
    weight = weight,
    stat = "index"
)

onezero::pairwise_jaccard(
    data = onezero::FoodSample,
    cols = Bisque:Chili,
    weight = weight,
    stat = "index"
)