In this example we will be using the ShipAccidents dataset available from canvas to explore the poisson distribution ship <- read.csv("shipaccidents.csv") head(ship) This data describes the number of accidents recorded for a range of ship types, along with their service period. We will mostly consider the following variables incidents: the total number of accidents recorded for each ship type service: the collective number of months that ships of that type were active for (5) Plot a histogram of the number of incidents recorded in this dataset. Label the x and y-axes accordingly and define the plot title to be your name. Paste your plot below, and provide a written description of the main features you would interpret from this data (5 pts)