Library(ade4)

data(olympic)

In r

1. Conditionals and iterations a. Load the data olympic as in Question 2 of Homework 2. Calculate the standard deviation (hint: use sdo ) for each column of olympic$tab. Use two methods: (i) the for loop; (ii) the function apply(). Display the results. b. Find the leap years between 1900 and 2018 using the for loop. You can look up the definition of leap year in Wikipedia. C. Calculate the values of the following Huber loss function at x = Seq(-3,3, by=0.1). f(x) = 22 -1 if |2| > 1; f(x) = 22 if |2| 1; f(x) = 22 if |2|