Create load-event2.R

A better load.event()