gpt4 book ai didi

r - 按列将多个函数应用于两个数据框

转载 作者:行者123 更新时间:2023-12-04 12:11:20 26 4
gpt4 key购买 nike

给定以下示例数据:

library(Metrics)

obs=data.frame(replicate(10,runif(100)))
pred=data.frame(replicate(10,runif(100)))

obs1=as.data.frame(lapply(obs, function(cc) cc[ sample(c(TRUE, NA), prob = c(0.85, 0.15), size = length(cc), replace = TRUE) ]))
pred1=as.data.frame(lapply(pred, function(cc) cc[ sample(c(TRUE, NA), prob = c(0.85, 0.15), size = length(cc), replace = TRUE) ]))

pred1[,1]=NA

result=mapply(function(x, y) {if(all(is.na(y))) NA else mae(x, y, ), mse(x,y),rmse(x,y),se(x,y)
}, obs1,pred1,SIMPLIFY = F,USE.NAMES = TRUE)

我想通过 mapply 计算 say mae(obs1[,1],pred1[,1]) 等。如何使用 base R functionsplyr 通过一次调用对所有其他函数执行相同的操作?

在输出中,result 的行名是 obs1pred1列名,而列名是 mae, mse,rmse,se

最佳答案

您必须编写自己的函数来指定要应用的各种函数:

 multi.fun <- function(x,y) {
c(mae = mae(x,y), mse = mse(x,y))
}

然后你可以这样做:

obs=data.frame(replicate(10,runif(100)))
pred=data.frame(replicate(10,runif(100)))

obs1=as.data.frame(lapply(obs, function(cc) cc[ sample(c(TRUE, NA), prob = c(0.85, 0.15), size = length(cc), replace = TRUE) ]))
pred1=as.data.frame(lapply(pred, function(cc) cc[ sample(c(TRUE, NA), prob = c(0.85, 0.15), size = length(cc), replace = TRUE) ]))

mapply(multi.fun, obs1, pred1)

关于r - 按列将多个函数应用于两个数据框,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36855093/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com