Clean the data set:

• Remove rows with NAs. Use na.omit().
• Remove the row with the single outlierin num_accts. Use filter() with a logicalcondition.
• Remove the rows with negative values of income.Use filter() with a logical condition.
• Make the 4 variables you have identified in the previousquestion into factors. Since the categories are unordered, turn these variables into nominal factors. This is easilyaccomplished with factor(): variable <-factor(variable). The levels will be assignedautomatically.

1) Copy and paste the R code you used to clean the dataset intoyour answer here.

2) Calculate and report the mean of answered aftercleaning the dataset. Because answered is coded 0/1this is as simple as calculating the proportion of 1s in thatvector with mean().

3) Calculate and report mean of income.