set all periods lt 0.01 to 0.01
compute R based on event type