有没有办法更有效地编写以下语句? accel 是一个数据框。
accel[[2]]<- accel[[2]]-weighted.mean(accel[[2]])
accel[[3]]<- accel[[3]]-weighted.mean(accel[[3]])
accel[[4]]<- accel[[4]]-weighted.mean(accel[[4]])
最佳答案
备选
accel[2:4] <- lapply(accel[2:4], function(x) x-weighted.mean(x))
关于r - 将 R 代码转换为 R 风格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3097191/