Create bumphunting.R

An object implementing the bump hunting algorithm