Update spam_example.R