data <- data.frame(group = c(rep(1, 4), rep(2, 4)),
out1 = c(0, 1, 0, 0, 1, 1, 1, 0),
out2 = rep(1, 8))
output <- npc(df = data, group_col = "group",
outcome_cols = c("out1", "out2"), perm_func = permute_group,
combn = "fisher", reps = 10^4, seed=42)
Run the code above in your browser using DataLab