R var() 函数 - 计算方差
R var() 函数用于计算样本的方差。
方差是标准差的平方,衡量数据偏离均值的程度。方差越大,数据越分散。
var() 函数语法格式如下:
var(x, y = NULL, na.rm = FALSE)
参数说明:
x 输入数值向量。
y 可选,第二个向量。提供时计算 x 和 y 的协方差。
na.rm 布尔值,默认为 FALSE,设置是否删除缺失值 NA。
实例
# 创建数据集
data <- c(2, 4, 6, 8, 10)
# 计算样本方差
result.var <- var(data)
print(paste("样本方差:", result.var))
# 验证:方差 = 标准差^2
print(paste("标准差:", sd(data)))
print(paste("标准差平方:", sd(data)^2))
data <- c(2, 4, 6, 8, 10)
# 计算样本方差
result.var <- var(data)
print(paste("样本方差:", result.var))
# 验证:方差 = 标准差^2
print(paste("标准差:", sd(data)))
print(paste("标准差平方:", sd(data)^2))
执行以上代码输出结果为:
[1] "样本方差: 10" [1] "标准差: 3.16227766016838" [1] "标准差平方: 10"
var() 还可以计算两个变量的协方差:
实例
# 两个变量:身高(cm) 和 体重(kg)
height <- c(160, 165, 170, 175, 180)
weight <- c(55, 60, 65, 70, 80)
# 计算协方差
cov_xy <- var(height, weight)
print(paste("身高和体重的协方差:", cov_xy))
# 协方差矩阵
m <- cbind(height, weight)
print("协方差矩阵:")
print(var(m))
height <- c(160, 165, 170, 175, 180)
weight <- c(55, 60, 65, 70, 80)
# 计算协方差
cov_xy <- var(height, weight)
print(paste("身高和体重的协方差:", cov_xy))
# 协方差矩阵
m <- cbind(height, weight)
print("协方差矩阵:")
print(var(m))
执行以上代码输出结果为:
[1] "身高和体重的协方差: 62.5"
[1] "协方差矩阵:"
height weight
height 62.5 62.5
weight 62.5 92.5

R 语言实例