print("Shortest paths")
library(cheddar)
data(Benguela, BroadstoneStream, TL84, TL86, SkipwithPond, YthanEstuary)
for(community in list(Benguela, BroadstoneStream, TL84, TL86, SkipwithPond,
YthanEstuary))
{
print(community)
print(system.time(y <- ShortestPaths(community)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.