1. What will be the output of the following code ? > x <- list(a = 1:4, b = rnorm(10), c = rnorm(20, 1), d = rnorm(100, 5)) > lapply(x, mean) a) $a [1] 2.5 $b [1] 1.248845 $c [1] 1.9935285 Loop Functions 90 $d [1] 5.051388 b) $a [1] 2.5 $b [1] 0.248845 $c…