Please download the data first in R Studio (this is important because tutors has been answering without downloading and checking the column names, I get error messages. in that case I cannot rate the answer helpful, because the answer doesn't help me.).

**This is R Studio class, so other languages are not helpful.

download.file(url = "https://www.dropbox.com/s/sciza23x1up2m81/Spill_Incidents.csv?dl=1", destfile = "data/Spill_Incidents.csv")

load the data in the environment (library(tidyverse) spills <- read_csv("data/Spill_Incidents.csv")) and my questions begin:

Analysis and summary of all data

1. Calculate the probability that a reported spill is related to "#2 fuel oil". Would you describe this as a likely event based on this result?
2. Make a histogram of the quantity of "#2 fuel oil" fuel spilled, for reported spills related to "#2 fuel oil". NOTE - you should filter your data so the quantity is less than 1000, because there are some extremely large outlier spills.
3. Calculate the probability that a reported spill is related to "#2 fuel oil" fuel AND had a quantity less than or equal to 100 gallons. Is it more likely that a #2 fuel oil spill was greater than or less than 100 gallons? Explain your answer. please download the data! the "units" column includes pounds as well, so we may have to convert pounds to gallons and make a object with it and then we have to add this to our codes for questions.
4. Are there any observable trends through time in the number of #2 fuel oil spills reported per year? NOTE - there are many ways for you to answer this question, but you must justify your answer with your R code. Data has no "year" column but a "received date" column in mm.dd.yy format (pls check the sheet! otherwise the codes will not work.

PLEASE DO NOT WRITE CODES BEFORE CHECKING THE COLUMN NAMES AND TYPES DATA SHEET.