Addition of forestfire.R