Value

Examples

perm_probs<-obtain_permutation_probabilities(declaration)
perms<-obtain_permutation_matrix(declaration)
# probabilities of assignment from declaration *should* match the average over all permutationstrue_probabilities<-declaration$probabilities_matrix[,2]
true_probabilities

#> [1] 0.51 0.51 0.51 0.51 0.51

# correctly WRONG because the perms have different probs!rowMeans(perms)