CalculateTimeLag function

Estimate an appropiate time lag for the Takens' vectors