data(planets)
fc <- FormalContext$new(planets)
# 1. Edge Swapping (Preserves degree distribution)
# Useful for null-model testing
fc_rand_swap <- randomize_context(fc, method = "swap")
# Verify marginals are preserved
colSums(fc$incidence())
colSums(fc_rand_swap$incidence())
# 2. Rewiring (Preserves only density)
fc_rand_rewire <- randomize_context(fc, method = "rewire")
Run the code above in your browser using DataLab