Help me finish homework 05 in R language.

Homework 4 Solutions John Ensley 2/10/2017

Problem 3 (a) lowerTrim3 <- function(x, trimBelow = -Inf, sumFunc = mean, ...) { sumFunc(x[which(x > trimBelow)], ...) }

x <- 1:5 lowerTrim3(x, sumFunc = sd)

## [1] 1.581139

lowerTrim3(-10:20, trimBelow = 0, sumFunc = quantile, probs = 0.99)

## 99% ## 19.81

lowerTrim3(-10:20, trimBelow = 0, trim = 0.1)

## [1] 10.5

(b) load(url("http://www.stat.berkeley.edu/users/nolan/data/rainfallCO.rda"))

rain.95 <- sapply(rain, lowerTrim3, trimBelow = 5, sumFunc = quantile, probs = 0.9 5) rain.95

## st050183.95% st050263.95% st050712.95% st050843.95% st050945.95% ## 80.0 60.0 106.0 103.6 84.2

Loading [Contrib]/a11y/accessibility-menu.js