Update home-ice advantage.R