R 嵌套函数

嵌套函数

有两种方法可以创建嵌套函数：

• 在另一个函数中调用一个函数。
• 在一个函数中编写另一个函数。

实例

在另一个函数中调用一个函数：

Nested_function <- function(x, y) {
  a <- x + y
  return(a)
}

Nested_function(Nested_function(2,2), Nested_function(3,3))

亲自试一试

例子解释：

该函数指示 x 加 y。

第一个输入 Nested_function(2,2) 是主函数的 x。

第二个输入 Nested_function(3,3) 是主函数的 y。

因此，输出为 (2+2) + (3+3) = 10。

实例

在一个函数中编写另一个函数：

Outer_func <- function(x) {
  Inner_func <- function(y) {
    a <- x + y
    return(a)
  }
  return (Inner_func)
}
output <- Outer_func(3) # 调用 Outer_func
output(5)

亲自试一试

例子解释：

你不能直接调用该函数，因为 Inner_func 已在 Outer_func 内部定义（嵌套）。

我们需要首先调用 Outer_func，以便在第二步中调用 Inner_func。

我们需要创建一个名为 output 的新变量并为其赋值，这里赋值为 3。

然后，我们用期望的 y 值（在本例中为 5）打印输出。

因此，输出为 8（3 + 5）。