申请不会导致像替换为相同的载体

函数“三重奏”举例说明了一个具有大量计算的函数，它从数据框（df）中取出某些列，并计算三个值：

# example: data
df <- data.frame(C1= c(1,2,3,4,5,6),C2= c(5,4,3,2,1,6),C3= c(9,1,5,2,7,4))

# example: function
trio  <- function(a,b,c){
             df2 <- df %>%
             mutate(., 
                 df$C1 * a,
                 df$C2 * b,
                 df$C2 * c 
              ) 
df2$calc <- df2[3] * df2[4]/df2[5]
max(df2$calc)
}

要找出哪个值组合会产生最佳输出（= max（df2 $ calc）），则会创建一个包含值组合的矩阵：

pp <- expand.grid(parameter_A = round(seq(min, max, length.out = count),3),
                  parameter_B = round(seq(min, max, length.out = count),3), 
                  parameter_C = round(seq(min, max, length.out = count),3))

替换for循环

max.all<- c()
for(w in 1:nrow(pp)){
    max.all[w] <-  findWinZ(pp[w,1],pp[w,2],pp[w,3])  
    }

我打算使用Apply-Family（sapply，lapply）的一个功能，例如

Version1: res2 <- sapply(pp, function(a,b,c)  findWinZ(length(pp[,1]),length(pp[,2]),length(pp[,3])))  

Version: res3 <- sapply(pp, function(a,b,c)  length(findWinZ(pp[w,1],pp[w,2],pp[w,3])))  

唉，apply（）循环的结果是错误的。 我需要的是具有所有结果的矢量，即与我从for循环获得的输出相同。 请，任何人都可以纠正我的申请（）代码？ 非常感谢！

---

如果问题是如何将for循环重写为sapply，那么：

res4 <- sapply(1:nrow(pp), function(w) findWinZ(pp[w,1],pp[w,2],pp[w,3]))

链接地址: http://www.djcxy.com/p/38295.html

上一篇: apply does not result in the same vector like replaced for

下一篇: using of multiple functions using apply family, aggregation, with etc