R/invasion_randomization.R

In VirtualCom: Assembling virtual plant communities

# shuffle species identities
invasion_randomization <- function(samp, inva){
    # identify the non successful natives
	new.samp <- samp[,sample(1:ncol(samp))] 
	colnames(new.samp) <- colnames(samp)
	new.samp
	return(list(samp=new.samp, inv=inva))
}