Update delay.R

typo ;-)