Cara menghitung deviasi standar tertimbang di r

Deviasi standar tertimbang adalah cara yang berguna untuk mengukur sebaran nilai dalam suatu kumpulan data ketika beberapa nilai dalam kumpulan data memiliki bobot lebih tinggi daripada nilai lainnya.

Rumus untuk menghitung simpangan baku tertimbang adalah:

Emas:

• N : Jumlah total observasi
• M: Jumlah bobot bukan nol
• w _i : Vektor bobot
• x _i : Vektor nilai data
• x : Rata-rata tertimbang

Cara termudah untuk menghitung deviasi standar tertimbang di R adalah dengan menggunakan fungsi wt.var() dari paket Hmisc , yang menggunakan sintaks berikut:

 #define data values
x <- c(4, 7, 12, 13, ...)

#define weights
wt <- c(.5, 1, 2, 2, ...)

#calculate weighted variance
weighted_var <- wtd. var (x, wt)

#calculate weighted standard deviation
weighted_sd <- sqrt(weighted_var)

Contoh berikut menunjukkan cara menggunakan fungsi ini dalam praktiknya.

Contoh 1: Standar deviasi tertimbang untuk sebuah vektor

Kode berikut menunjukkan cara menghitung deviasi standar tertimbang untuk satu vektor di R:

 library (Hmisc)

#define data values 
x <- c(14, 19, 22, 25, 29, 31, 31, 38, 40, 41)

#define weights
wt <- c(1, 1, 1.5, 2, 2, 1.5, 1, 2, 3, 2)

#calculate weighted variance 
weighted_var <- wtd. var (x, wt)

#calculate weighted standard deviation
sqrt(weighted_var)

[1] 8.570051

Deviasi standar tertimbang ternyata menjadi 8,57 .

Contoh 2: Standar deviasi tertimbang untuk kolom dalam bingkai data

Kode berikut menunjukkan cara menghitung deviasi standar tertimbang untuk kolom bingkai data di R:

 library (Hmisc)

#define data frame
df <- data. frame (team=c('A', 'A', 'A', 'A', 'A', 'B', 'B', 'C'),
                 wins=c(2, 9, 11, 12, 15, 17, 18, 19),
                 dots=c(1, 2, 2, 2, 3, 3, 3, 3))

#define weights
wt <- c(1, 1, 1.5, 2, 2, 1.5, 1, 2)

#calculate weighted standard deviation of points
sqrt(wtd. var (df$points, wt))

[1] 0.6727938

Simpangan baku tertimbang untuk kolom poin ternyata adalah 0,673 .

Contoh 3: Deviasi standar tertimbang untuk beberapa kolom dalam bingkai data

Kode berikut menunjukkan cara menggunakan fungsi sapply() di R untuk menghitung deviasi standar tertimbang untuk beberapa kolom dalam bingkai data:

 library (Hmisc)

#define data frame
df <- data. frame (team=c('A', 'A', 'A', 'A', 'A', 'B', 'B', 'C'),
                 wins=c(2, 9, 11, 12, 15, 17, 18, 19),
                 dots=c(1, 2, 2, 2, 3, 3, 3, 3))

#define weights
wt <- c(1, 1, 1.5, 2, 2, 1.5, 1, 2)

#calculate weighted standard deviation of points and wins
sapply(df[c(' wins ', ' points ')], function(x) sqrt(wtd. var (x, wt)))

     win points 
4.9535723 0.6727938 

Standar deviasi tertimbang untuk kolom kemenangan adalah 4,954 dan standar deviasi tertimbang untuk kolom poin adalah 0,673 .

Sumber daya tambahan

Cara Menghitung Deviasi Standar Tertimbang di Excel
Cara menghitung simpangan baku di R
Cara menghitung koefisien variasi R
Cara menghitung rentang di R