R语言自定义求最大/小值和平均值函数

可以使用以下代码定义自定义函数：

#定义一个求最大值的函数
max_func <- function(x){
max_val <- max(x)
return(max_val)
}

#定义一个求最小值的函数
min_func <- function(x){
min_val <- min(x)
return(min_val)
}

#定义一个求平均值的函数
avg_func <- function(x){
avg_val <- mean(x)
return(avg_val)
}

在使用时，只需要传入需要求解的向量即可，比如：

x <- c(1,2,3,4,5)
max_func(x) # 输出 5
min_func(x) # 输出 1
avg_func(x) # 输出 3