R 我如何加快下面的计算速度来计算欧几里得和？

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

rollapply函数

euclidiansum%
tq_mutate（mutate_fun=rollapply，
宽度=50，
FUN=欧几里得数，
by.column=FALSE，
col_rename=“Euclidiansum”）

你知道我怎样才能加速计算吗

多谢各位

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")