data("finches")
finches$species <- system.file("extdata", finches$species,
package="netCoin") # copy path to the species field
g <- gallery(finches, image="species", main="Species in Galapagos Islands",
note="Data source: Sanderson (2000)")
g <- addTutorial(g,
description="Here you can see different finches species in Galapagos islands.")
if (FALSE) {
plot(g)
}
Run the code above in your browser using DataLab