Update fire.R