将R代码转换为R风格

时间:2010-06-22 21:13:40

标签: r

有没有办法更有效地写下面的陈述? 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]])

2 个答案:

答案 0 :(得分:4)

替代

accel[2:4] <- lapply(accel[2:4], function(x) x-weighted.mean(x))

答案 1 :(得分:2)

这是一种做法。

accel[,2:4] = t(t(accel[,2:4]) - apply(accel[,2:4], 2, weighted.mean))

更正了Marek现货 - 谢谢。

士气:在发布之前请务必检查您的R代码!