colnames (ds) =- c( income , "rooms") 2 Obtain summary statistics for Household Income and visualize data: 1. Execute the following commands from the script window: summary (dssincome) range(dsSincome ) sd (ds$income) var (dssincome) plot (density (ds$income) ) # left skewed 2. What is the mean? 3. What is the median? 4. What is the standard deviation? 3 Obtain summary statistics for Number of rooms and visualize data: Execute the following commands from the script window: summary (dssrooms) range (ds$rooms) sd ( ds$rooms) plot (as . factor (dssrooms) ) What is the mean? What is the median? What is the standard deviation? 4 Remove Outliers In a previous lab, you recorded the range of income. You observed that the minimum household income is 4, and the maximum is 1,620,560. 1. Does this make sense to you? Why? " 2. What happens if you throw out the top and bottom 10%%? Execute the following line from the script window (m =- mean (dsSincome, trim=0.10) ) 3. How does this compare to the previous mean of this variable? 4. Execute the following commands from the script window: ds subset (ds, dssincome -= 10000 & dssincome