To get the standard deviation, use sd(variable).

> sd(spidersconsumed)
[1] 9.486833

This is almost worse, because it means people eat 3 ± 9.48 spiders per year!