Refaktorering: funktioner
Att kopiera och klistra in en gång är okej, men tre gånger brukar tyda på att något är fel.
Koden som ges beräknar ett ungefärligt 95-procentigt konfidensintervall för variablerna x och y.
Den här övningen är en del av kursen
Defensiv R-programmering
Övningsinstruktioner
- Skapa en funktion som heter
ci()med ett enda argument som hetervaluesutan standardvärden. - Låt funktionen returnera 95-procentigt konfidensintervall.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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 + ___)
}