如何加快以下滚动应用来计算欧几里得总和？

问题描述

我有以下代码需要永恒才能对我的数据集执行。我无法从现有软件包中找到函数，所以我自己编写了该函数。任务是在50个滚动窗口（时间序列）上创建两个标准化序列之间的差的平方和。总和和标准化价格序列应在每个步骤重新计算。也许这就是它这么慢的原因：

rollapply的功能

euclidiansum <- function(x) sum(((standardize(x[,"Passenger.x"]) - standardize(x[,"Passenger.y"]))^2)) 

计算

tidyverse_rolling_euclidian <- pairwise_combos %>%
group_by(vehiculetype) %>%
tq_mutate(mutate_fun = rollapply,width      = 50,FUN        = euclidiansum,by.column  = FALSE,col_rename = "Euclidiansum")

您知道我如何加快计算速度吗？

非常感谢您。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）