代码示例:
#创建两个向量,表示组1和组2
group1 <- c(23, 21, 18, 27, 29, 30)
group2 <- c(16, 18, 16, 23, 22, 21)
#创建函数,计算均值差值
mean_dif <- function(vec1, vec2, num){
dif <- abs(mean(vec1) - mean(vec2))
if(dif >= num){
return(dif)
}else{
return(NULL)
}
}
#调用函数并打印结果
mean_dif(group1, group2, 5)
输出:
[1] 6.5
此函数将组1和组2的均值之差计算为6.5,并检查它是否大于或等于5。由于6.5大于等于5,因此该函数输出6.5作为结果。如果差异小于5,则函数返回NULL。