sách gpt4 ai đã đi

R - 我可以将此循环编写为应用函数吗?

In lại 作者:行者123 更新时间:2023-12-04 11:55:22 hai mươi bốn 4
mua khóa gpt4 Nike

我创建了以下循环,但想将其编写为 lapply 函数。
这可能吗?我正在尝试了解应用函数,但还没有完全掌握它。

Decay <- function(x, decay=y) stats::filter(x, decay, method = "recursive")

d<-iris[,c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width")]

DecayX <- c(0.1,0.3,0.6,0.8,0.95)
DecVars = c("Sepal.Length","Petal.Width")

for (j in DecVars){
for (i in DecayX){
VarName <- paste(colnames(d[j]),i*100,"DEC",sep="_")
d[[VarName]]<-Decay(d[j],i)
}
}

1 Câu trả lời

我看不出有任何理由在这里使用 apply 系列。

Bạn có thể sử dụng mapply

vars <- c(expand.grid(DecayX,DecVars,stringsAsFactors = F))
invisible(
mapply(function(x,DecV){VarName <- paste(colnames(d[DecV]),x*100,"DEC",sep="_");
d[[VarName]]<<-Decay(d[DecV],x)},x=vars[[1]],DecV=vars[[2]])
)

我认为在双循环的情况下我不会使用 áp dụng家庭。

关于R - 我可以将此循环编写为应用函数吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51824640/

hai mươi bốn 4 0
Bài viết được đề xuất: r - 如何计算ggplot2绘制的椭圆面积?
Bài viết được đề xuất: Hỗ trợ Django RDF?
Bài viết được đề xuất: graph - 如何在图中找到最小生成树的总数?
Bài viết được đề xuất: r - 计算特定组的相对频率
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com