Question 3: (a) (5 points) Plot the percent of sedentary activity as a function of Date, making sure to remove the (practically) xero values as in HW3 - you should repeat your code from HW3 (Use the solutions of HW3 if you were not able to do this successfully yourself]. Color the points according the day of the week and give a legend. = code to plot sedentary against date remove cubget (fitbit, potMnOfSdA>=0.2) plot (remove *Date, remove$pctHnDISdA, ylab - "Percentage Of Sedentary", Ilab - "Date", col-colWeek [f legend ( "topleft", c("Monday", "Tuesday", "Wednesday", "Thursday "Friday". "Saturday "Sund