The airquality data contains records on ozone, temperature, solar radiation, wind during May $1$ to September $30$ in $1973.$ The following is a description of the variables. o Ozone: Mean ozone in parts per billion from $1300$ to $1500$ hours at Roosevelt Islando Solar.R: Solar radiation in Langleys in the frequency band $4000-7700$ Angstroms from $0800$ to $1200$ hours at Central Parko Wind: Average wind speed in miles per hour at $0700$ and $1000$ hours at LaGuardia Airporto Temp: Maximum daily temperature in degrees Fahrenheit at La Guardia Airport.You can check the details of the airquality data. Section $1$: write a R script to complete the following tasks on data cleaning and descriptive statistics:$1.$ Set the R working directory on your computer. $2.$ Import "airquality" data from any of the format: Rdata, csv$,$ or txt and name it as raw$\mathrm{.}3.$ Change variable name "Solar.R$"$ to "SolarRadiation"$4.$ Get mean ozone level for the following sample or sub$-$samples.a$.$ the overall mean Ozone level for the entire sampleb. mean ozone level when Temp is no higher than $70$ langc. mean ozone level when Temp is higher than $70$ but below $80$ langd. mean ozone level when Temp is above $80$ lang but wind is no higher than $10$ miles per hour$5.$ Create a histogram for Ozone level$\mathrm{.}6.$ Calculate the variance and the standard deviation of Ozone$7.$ Get a subsample of data with no missing value for Ozone variable using na$.$omit$()$ function and name the new data as raw$\_$no$\_$NA$.$ Feel free to copy, paste, and run the following code to your