Update statewise.R