# An imbalanced distribution
bip.degdist.check(num.m1 = 500, num.m2 = 500,
deg.dist.m1 = c(0.40, 0.55, 0.03, 0.02),
deg.dist.m2 = c(0.48, 0.41, 0.08, 0.03))
# A balanced distribution
targets <- bip.degdist.check(num.m1 = 500, num.m2 = 500,
deg.dist.m1 = c(0.40, 0.55, 0.04, 0.01),
deg.dist.m2 = c(0.48, 0.41, 0.08, 0.03))
targets
Run the code above in your browser using DataLab