data("Galapagos")
data("finches")
finches$species <- system.file("extdata", finches$species,
package="netCoin") # copy path to the species field
Net <- allNet(Galapagos, nodes=finches, criteria="hyp", maxL=.05,
image="species",
main="Species coincidences in Galapagos Islands",
note="Data source: Sanderson (2000)")
gallery <- asGallery(Net)
Run the code above in your browser using DataLab