Update earthquake.r