Fixed error with data(diamond) (requires library(UsingR)) and a typo