Try > example(ChickEgg, package="lmtest") which is about as good as it gets for a (literal) chicken-and-egg problem illustrating Granger causality reasoning.