Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/69.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 加快代码查找向量中每12个元素之间的差异_R_For Loop_Vector - Fatal编程技术网

R 加快代码查找向量中每12个元素之间的差异

R 加快代码查找向量中每12个元素之间的差异,r,for-loop,vector,R,For Loop,Vector,我有一个长度超过200000的向量。为了简单起见,可以这样说: x <- c(1:96) x只需这样做:尾部(x,-12升)-头部(x,-12升)。它是矢量化的。非常感谢lmo,这正是我所需要的。而且diff(x,12)diff更快,结果也相同()。 diff <- c( (13 - 1) = 12, (14 - 2) = 12, (15 - 3) = 12, ...) diff <- c() for (k in 1:length(x)){ d <- x[k+1

我有一个长度超过200000的向量。为了简单起见,可以这样说:

x <- c(1:96)

x只需这样做:
尾部(x,-12升)-头部(x,-12升)
。它是矢量化的。非常感谢lmo,这正是我所需要的。而且
diff(x,12)
diff
更快,结果也相同()。
diff <- c( (13 - 1) = 12, (14 - 2) = 12, (15 - 3) = 12, ...)
diff <- c()
for (k in 1:length(x)){
   d <- x[k+12] - x[k]
   diff <- c(diff, d)
}