R tutorial episode 10 - anonymous function in R