SMS: Discovering statistics using R