Create EVIR.R