Update equi.R