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

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

我有以下代码需要永恒才能对我的数据集执行。我无法从现有软件包中找到函数，所以我自己编写了该函数。任务是在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")

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

非常感谢您。