# NOT RUN {
data("example.data")
comm=example.data$comm
tree=example.data$tree
treat=example.data$treat
# 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 folder path for 'save.wd'.
# }
# NOT RUN {
wd0=getwd()
nworker=2 # parallel computing thread number
rand.time=5 # usually use 1000 for real data.
# for a big dataset, pdist.big may be used
save.wd=paste0(tempdir(),"/pdbig.qpen.test")
# please change to the folder you want to save the pd.big output.
pd.big=pdist.big(tree = tree, wd=save.wd, nworker = nworker)
qp2=qpen(comm=comm, pd=pd.big$pd.file, pd.big.wd=pd.big$pd.wd,
pd.big.spname=pd.big$tip.label, tree=tree,
rand.time=rand.time, nworker=nworker)
qptest=qpen.test(qpen.result=qp2, treat=treat)
setwd(wd0)
# }
Run the code above in your browser using DataLab