Update delay.R

Typo ;-)