r：在自定义函数中嵌套一个 for 循环

Question

我有一个匿名函数，我用它来应用双指数变换，它适用于我的硬编码值：

custom_func <- function(x) {
  0.01^(0.95^(x/max(x)*100))
}

df$newVar <- custom_func(df$var)

df$newVar

它返回预期的转换变量：

但是，我想使用创建一个版本，该版本将为第二个指数摄取多个参数，并将它们作为永久向量添加到我的数据框中。我的尝试没有向数据框添加任何内容，并且无法理解如何解决此问题：

alpha <- seq(0.85, 0.95, by= .01)

dblExponential <- function(a,x){
  for (i in alpha) {
    0.01^(a^(x/max(x)*100))
  }
}

dblExponential(alpha, df$var)

df

Answer 1

如果你只想使用最后一个评估语句的值，R 中的函数不需要显式的 return 语句。这在您的简单函数（您的第一个代码块）中效果很好。

在第二种情况下，如果我理解正确，您希望返回多个时间序列，这些时间序列在循环中一个接一个地计算。也就是说，您必须在函数中显式组合结果数据框，然后返回此结果数据框。

基于您的第二个代码块的示例

# Function definition (Note that the common convention is to define functions at the
#        top of any script so that people can understand the structure more easily.)
#
dblExponential<- function(a, x){
  # Prepare result data frame
  result_df <- data.frame(x)
  # loop through the sequence
  for (i in a) {
    # Compute column for value i
    result_column <- 0.01^(i^(x/max(x)*100))
    # Define name of column in the resulting data frame
    result_column_name <- as.character(i)
    # Add the column to the data frame
    result_df[result_column_name] <- result_column
  }
  # Return the result data frame
  return(result_df)
}

# Create example data frame
df <- data.frame(c(1, 2, 3, 4, 5, 6, 7))
colnames(df) <- c("var")

# Your sequence of exponents
alpha <- seq(0.85, 0.95, by= .01)

# Call to the function, assign the return value to df2
df2 <- dblExponential(alpha,df$var)

# print df2
df2