#加载数据
data_Group <- read.csv("你的数据.CSV", header = TRUE)
# 计算数据集的均值
mean_value <- mean(你的数据$第几列)
print(mean_value)
#计算标准差
# 计算数据集的标准差
mean_value <- mean(你的数据$第几列)
print(mean_value)
#选取特定行进行分析
selected_rows <- data_Group[2:21, 2]
mean_selected <- mean(selected_rows)
print(mean_selected)
sd_selected <- sd(selected_rows)
print(sd_selected)
#如果有缺失值,加上na.rm=TRUE
mean_selected <- mean(selected_rows,na.rm = TRUE)
print(mean_selected)
sd_selected <- sd(selected_rows,na.rm = TRUE)
print(sd_selected)