tree <- ape::read.tree( system.file('sim.nwk', package = 'treestructure') )
# you can run the example below before running test
#struc <- trestruct( tree )
#because it can take a minute or so to run treestructure, we will load it here
struc <- readRDS( system.file('struc_plot_example.rds', package='treestructure') )
#run the test
results <- treestructure.test(tree, x = struc$clusterSets[[1]],
y = struc$clusterSets[[2]])
print(results)
Run the code above in your browser using DataLab