Update EVIR.R