Update functions2.R

a typo