Функция cov() в R - Вычисление ковариации
Пример на языке RФункция cov() в R используется для вычисления ковариации между двумя переменными.
Ковариация измеряет, как две переменные изменяются вместе. Положительная ковариация указывает на изменения в одном направлении, а отрицательная — на изменения в противоположных направлениях. Она лежит в основе вычисления коэффициента корреляции.
Синтаксис функции cov() выглядит следующим образом:
cov(x, y = NULL, method = c("pearson", "kendall", "spearman"))
Описание параметров:
xВходной числовой вектор или матрица.
yНеобязательно: второй вектор или матрица.
Пример
# Затраты на рекламу (10,000 yuan) и продажи (10,000 yuan)
ad_spend <- c(10, 15, 12, 18, 20, 14, 22, 16)
sales <- c(50, 65, 55, 72, 80, 60, 88, 68)
# Вычислить ковариацию
cov_value <- cov(ad_spend, sales)
print(paste("Ковариация затрат на рекламу и продаж:", cov_value))
# Вычисляем коэффициент корреляции
cor_value <- cor(ad_spend, sales)
print(paste("Коэффициент корреляции:", round(cor_value, 3)))
# Проверка: cor = cov / (sd(x) * sd(y))
manual_cor <- cov_value / (sd(ad_spend) * sd(sales))
print(paste("Коэффициент корреляции, рассчитанный вручную:", round(manual_cor, 3)))
ad_spend <- c(10, 15, 12, 18, 20, 14, 22, 16)
sales <- c(50, 65, 55, 72, 80, 60, 88, 68)
# Вычислить ковариацию
cov_value <- cov(ad_spend, sales)
print(paste("Ковариация затрат на рекламу и продаж:", cov_value))
# Вычисляем коэффициент корреляции
cor_value <- cor(ad_spend, sales)
print(paste("Коэффициент корреляции:", round(cor_value, 3)))
# Проверка: cor = cov / (sd(x) * sd(y))
manual_cor <- cov_value / (sd(ad_spend) * sd(sales))
print(paste("Коэффициент корреляции, рассчитанный вручную:", round(manual_cor, 3)))
Выполнение приведенного выше кода дает следующий вывод:
[1] "广告投入与销售额的协方差: 48.3571428571429" [1] "相关系数: 0.988" [1] "手动计算相关系数: 0.988"Другие расширения