set.seed(111)
pam <- matrix(rbinom(100,1,0.3),nrow = 10,ncol = 10)
dfield_rand <- bamm::null_dispersion_field_distribution(pam,n_iter=10,
parallel=FALSE,
randal="indep_swap",
n_cores = 2)
head(dfield_rand)
Run the code above in your browser using DataLab