Update lead-lag.R

Add incomparable = NA