# NOT RUN {
data("example.data")
comm=example.data$comm
tree=example.data$tree
# In this example, 10 samples from one metacommunity,
# the other 10 samples from another metacommunity.
meta.group=data.frame(meta.com=c(rep("meta1",10),rep("meta2",10)))
rownames(meta.group)=rownames(comm)
# since pdist.big need to save output to a certain folder,
# the following code is set as 'not test'.
# but you may test the code on your computer after change the path for 'save.wd'.
# }
# NOT RUN {
wd0=getwd()
save.wd=paste0(tempdir(),"/pdbig.bNTI.big.cm")
# you may change save.wd to the folder you want to save the pd.big output.
nworker=2 # parallel computing thread number
pd.big=pdist.big(tree = tree, wd=save.wd, nworker = nworker)
rand.time=20 # usually use 1000 for real data.
bNTI=bNTI.big.cm(comm=comm, meta.group=meta.group,pd.desc=pd.big$pd.file,
pd.spname=pd.big$tip.label,pd.wd=pd.big$pd.wd,
spname.check=TRUE, nworker=nworker, memo.size.GB=50,
weighted=TRUE, exclude.consp=FALSE,rand=rand.time,
output.dtail=FALSE, RC=FALSE, trace=TRUE)
setwd(wd0)
# }
Run the code above in your browser using DataLab