data(finches)
data(Galapagos)
Net<-allNet(Galapagos,nodes=finches, criteria="hyp", maxL=.05,
lwidth ="Haberman",lweight="Haberman",
size="frequency", color="species", layout="mds",
main="Species coincidences in Galapagos Islands",
note="Data source: Sanderson (2000)")
img <- system.file("extdata", "p.Crassirostris.png",
package="netCoin")
Net <- addImage(Net,img)
if (FALSE) {
multi <- multigraphCreate(Network=Net)
multiPages(multi,"Graph image example",show=TRUE)
}
Run the code above in your browser using DataLab