在R语言中，函数是通过`function`关键字来定义的。函数定义的基本语法如下：
```r
function_name <- function（arg1, arg2, ...） {
Function body
result <- arg1 + arg2
return（result）
}
```
function_name：这是函数的名称，用于在R环境中引用该函数。
arg1, arg2, ...：这些是函数的形式参数（formal arguments），即函数在被调用时接收的输入值。参数可以是可选的，也可以有默认值。
Function body：这是函数体，包含一系列表达式，这些表达式定义了函数的功能。函数体需要使用大括号`{}`括起来。
return（result）：这是函数的返回值，即函数体中最后一个表达式的计算结果。
```r
定义一个名为 my_function 的函数，接受两个参数 x 和 y，并返回它们的和
my_function <- function（x, y） {
result <- x + y
return（result）
}
调用函数并打印结果
sum_result <- my_function（3, 5）
print（sum_result） 输出 8
```
函数参数的默认值
你还可以为函数的参数设置默认值，这样在调用函数时如果没有提供该参数的值，将使用默认值。例如：
```r
定义一个名为 cv 的函数，计算变异系数
cv <- function（x） {
result <- sd（x） / mean（x）
return（result）
}
调用函数并打印结果
cv_result <- cv（1:10）
print（cv_result） 输出 0.5504819
```
在这个例子中，`cv`函数没有参数，因此可以直接调用。如果需要为`x`参数设置默认值，可以这样做：
```r
定义一个名为 cv 的函数，计算变异系数，并为 x 参数设置默认值 1:10
cv <- function（x = 1:10） {
result <- sd（x） / mean（x）
return（result）
}
调用函数并打印结果
cv_result <- cv（）
print（cv_result） 输出 0.5504819
```
函数体中的多行表达式
如果函数体包含多行表达式，需要使用大括号`{}`来明确函数内容的起始和结束位置。例如：
```r
定义一个名为 gcd 的函数，使用欧几里得算法计算两个整数的最大公约数
gcd <- function（a, b） {
if （b == 0） {
return（a）
} else {
return（gcd（b, a %% b））
}
}
调用函数并打印结果
gcd_result <- gcd（56, 98）
print（gcd_result） 输出 14
```
函数的调用
定义函数后，可以在程序的任何地方调用它。例如：
```r
定义一个名为 square 的函数，计算一个数的平方
square <- function（x） {
result <- x^2
return（result）
}
调用函数并打印结果
square_result <- square（3）
print（square_result） 输出 9
```
通过这些步骤，你可以轻松地定义和调用R语言中的函数，从而提高代码的模块化和可重用性。