Як обчислити абсолютне середнє відхилення в r


Середнє абсолютне відхилення вимірює розподіл спостережень у наборі даних.

Це особливо корисний показник, оскільки на нього менше впливають викиди, ніж на інші показники дисперсії, такі як стандартне відхилення та дисперсія.

Формула для обчислення абсолютного середнього відхилення, часто скорочено MAD, є:

MAD = медіана (|x i – x m |)

золото:

  • x i : i-те значення набору даних
  • x m : середнє значення в наборі даних

У наступних прикладах показано, як обчислити середнє абсолютне відхилення в R за допомогою вбудованої функції mad() .

Приклад 1: обчислити MAD для вектора

Наступний код показує, як обчислити середнє абсолютне відхилення для одного вектора в R:

 #define data
data <- c(1, 4, 4, 7, 12, 13, 16, 19, 22, 24)

#calculate MAD
mad(data)

[1] 11.1195

Середнє абсолютне відхилення для набору даних виявляється рівним 11,1195 .

Приклад 2: обчислення MAD для стовпця у кадрі даних

У наступному коді показано, як обчислити MAD для одного стовпця у кадрі даних:

 #define data
data <- data.frame(x = c(1, 4, 4, 6, 7, 8, 12),
                   y = c(3, 4, 6, 8, 8, 9, 19),
                   z = c(2, 2, 2, 3, 5, 8, 11))

#calculate MAD for column y in data frame
mad(data$y)

[1] 2.9652

Абсолютне середнє відхилення для стовпця y виявляється рівним 2,9652 .

Приклад 3: обчислення MAD для кількох стовпців у кадрі даних

У наступному коді показано, як обчислити MAD для кількох стовпців у кадрі даних за допомогою функції sapply() :

 #define data
data <- data.frame(x = c(1, 4, 4, 6, 7, 8, 12),
                   y = c(3, 4, 6, 8, 8, 9, 19),
                   z = c(2, 2, 2, 3, 5, 8, 11))

#calculate MAD for all columns in data frame
sapply(data, mad)

     X Y Z
2.9652 2.9652 1.4826

Абсолютне середнє відхилення становить 2,9652 для стовпця x, 2,9652 для стовпця y і 1,4826 для стовпця z.

Пов’язане: посібник із apply(), lapply(), sapply() і tapply() у R

Додаткові ресурси

Як розрахувати MAPE в R
Як розрахувати MSE в R
Як розрахувати RMSE в R

Додати коментар

Ваша e-mail адреса не оприлюднюватиметься. Обов’язкові поля позначені *