Modern Applied Statistics with S