R 函数
函数是一组组织在一起以执行特定任务的语句。 R 有大量内置函数，用户可以创建自己的函数。
在 R 中，函数是一个对象，因此 R 解释器能够将控制权传递给函数，以及函数完成操作可能需要的参数。
该函数依次执行其任务并将控制权以及可能存储在其他对象中的任何结果返回给解释器。
功能定义
R 函数是通过使用关键字
function 创建的。 R 函数定义的基本语法如下-
function_name <-function(arg_1, arg_2, ...) {
Function body
}
功能组件
函数的不同部分是-
函数名称-这是函数的实际名称。它作为具有此名称的对象存储在 R 环境中。
参数-参数是一个占位符。当一个函数被调用时，你将一个值传递给参数。参数是可选的；也就是说，一个函数可能不包含任何参数。参数也可以有默认值。
函数体-函数体包含一组定义函数功能的语句。
返回值-函数的返回值是函数体中要计算的最后一个表达式。
R 有许多
内置 函数，可以直接在程序中调用，而无需先定义它们。我们也可以创建和使用我们自己的函数，称为
用户定义函数。
内置功能
内置函数的简单示例是
seq()、
mean()、
max()、
sum(x ) 和
paste(...) 等。它们由用户编写的程序直接调用。您可以参考最广泛使用的 R 函数。
# Create a sequence of numbers from 32 to 44.
print(seq(32,44))
# Find mean of numbers from 25 to 82.
print(mean(25:82))
# Find sum of numbers frm 41 to 68.
print(sum(41:68))
当我们执行上面的代码时，它会产生以下结果-
[1] 32 33 34 35 36 37 38 39 40 41 42 43 44
[1] 53.5
[1] 1526
用户自定义函数
我们可以在 R 中创建用户定义的函数。它们特定于用户想要的东西，一旦创建，它们就可以像内置函数一样使用。下面是如何创建和使用函数的示例。
# Create a function to print squares of numbers in sequence.
new.function <-function(a) {
for(i in 1:a) {
b <-i^2
print(b)
}
}
调用函数
# Create a function to print squares of numbers in sequence.
new.function <-function(a) {
for(i in 1:a) {
b <-i^2
print(b)
}
}
# Call the function new.function supplying 6 as an argument.
new.function(6)
当我们执行上面的代码时，它会产生以下结果-
[1] 1
[1] 4
[1] 9
[1] 16
[1] 25
[1] 36
调用不带参数的函数
# Create a function without an argument.
new.function <-function() {
for(i in 1:5) {
print(i^2)
}
}
# Call the function without supplying an argument.
new.function()
当我们执行上面的代码时，它会产生以下结果-
[1] 1
[1] 4
[1] 9
[1] 16
[1] 25
使用参数值调用函数（按位置和名称）
函数调用的参数可以按照在函数中定义的相同顺序提供，也可以按照不同的顺序提供但分配给参数的名称。
# Create a function with arguments.
new.function <-function(a,b,c) {
result <-a * b + c
print(result)
}
# Call the function by position of arguments.
new.function(5,3,11)
# Call the function by names of the arguments.
new.function(a = 11, b = 5, c = 3)
当我们执行上面的代码时，它会产生以下结果-
使用默认参数调用函数
我们可以在函数定义中定义参数的值，并在不提供任何参数的情况下调用函数以获得默认结果。但是我们也可以通过提供参数的新值来调用这样的函数并获得非默认结果。
# Create a function with arguments.
new.function <-function(a = 3, b = 6) {
result <-a * b
print(result)
}
# Call the function without giving any argument.
new.function()
# Call the function with giving new values of the argument.
new.function(9,5)
当我们执行上面的代码时，它会产生以下结果-
函数的惰性求值
函数的参数是惰性求值的，这意味着它们只在函数体需要时才求值。
# Create a function with arguments.
new.function <-function(a, b) {
print(a^2)
print(a)
print(b)
}
# Evaluate the function without supplying one of the arguments.
new.function(6)
当我们执行上面的代码时，它会产生以下结果-
[1] 36
[1] 6
Error in print(b) : argument "b" is missing, with no default
