Refactoring: functies
Kopiëren en plakken mag best één keer, maar drie keer is meestal een teken dat er iets mis is.
De meegeleverde code berekent een benaderend 95%-betrouwbaarheidsinterval voor de variabelen x en y.
Deze oefening maakt deel uit van de cursus
Defensief programmeren in R
Oefeninstructies
- Maak een functie
ci()met één argumentvalueszonder standaardwaarde. - Laat de functie het 95%-betrouwbaarheidsinterval retourneren.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
n <- length(x); m <- mean(x); s <- sd(x)
c(m - 1.96 * s / sqrt(n), m + 1.96 * s / sqrt(n))
n <- length(y); m <- mean(y); s <- sd(y)
c(m - 1.96 * s/sqrt(n), m + 1.96 * s/sqrt(n))
# Define a function to prevent pasting the code above
ci <- function(values) {
n <- length(values)
m <- ___
s <- ___
c(m - ___, m + ___)
}