如何并行应用rollapply？

问题描述

我想并行化以下rollapply以便使其更快：

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

示例数据（非常简化的示例）

df <- read.table(text = "
vehiculetype,Passenger.x,Passenger.y
  1,400,700
  2,420,100
 2,210,300
 2,100,100
  2,100
 1,800,70
 1,300,40
  1,10,200
  1,50,10
 2,90,30",sep = ",",header = TRUE)

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

非常感谢您。

解决方法

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

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

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