Help me finish homework 05 in R language.
yvz5nf4hw4selected.pdf
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
- Homework 4 Solutions
- John Ensley
- 2/10/2017
- Problem 3
- (a)
- (b)