Refactoring: fungsi
Menyalin dan menempel sekali masih wajar, tetapi melakukannya tiga kali biasanya menandakan ada yang kurang tepat.
Kode yang disediakan menghitung perkiraan interval kepercayaan 95% untuk variabel x dan y.
Latihan ini adalah bagian dari kursus
Pemrograman R Defensif
Petunjuk latihan
- Buat fungsi bernama
ci()dengan satu argumen bernamavaluestanpa nilai bawaan. - Buat fungsi tersebut mengembalikan interval kepercayaan 95%.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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 + ___)
}