Taking the average of a variable is as easy as using mean(variable).

> spidersconsumed <- c(0,0,0,0,0,0,0,0,0,30)
> mean(spidersconsumed)
[1] 3

The average person eats 3 spiders per year. The child of Spiders Georg, Spiders Meorg, ate 30 spiders, and kept the average in his class of 10 students. Clearly, this lead to a statistical error, and the data would be better represented another way.