Generate null model matrices with total marginals fixed in R I need to produced several matrices based in one original.