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 merupakan bagian dari kursus
Pemrograman R Defensif
Instruksi latihan
- Buat fungsi bernama
ci()dengan satu argumen bernamavaluestanpa nilai bawaan. - Buat fungsi tersebut mengembalikan interval kepercayaan 95%.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
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 + ___)
}