Thanks but that format for the data is not really very useful. Please supply some data in dput() format as suggested above.
Actually now that I look at the code it is not clear where *Book3 is coming from.
When I try
library(vegan)
data("Book3")
Book3
I get
Error: object 'Book3' not found
so it looks like Book3 is not a dataset included with vegan. How are you loading Book3?