我在 Ubuntu 中使用以下 r 程序来获取数据。但是执行这个程序需要 3 天。您能建议我可以使用哪些其他方法来减少计算时间吗？像并行计算，还是亚马逊网络服务？

 library(statcomp)
library(igraph)
library(NetworkDistance)
library(png)
num_a <- 0 
filenames <- list.files(pattern="*.png")
for (i in seq_along(filenames)) 
{
  k <- load.image(filenames[i])
  j <- matrix(k,16,16)
  j <- ts(j)
  hr <- HVG(j,meth = "HVG",maxL = 10^8,rho = NA)
  hr1 <- hr$A
  for (j in seq_along(filenames))  
  {
    l <- load.image(filenames[j])
    m <- matrix(l,16)
    n <- ts(m)
    hr2 <- HVG(n,rho = NA)
    hr3 <- hr2$A
    e <- list(hr1,hr3 )
    a <-nd.him(e,out.dist = TRUE)
    num_a <- append(num_a,a$D)
  }
}
  write.csv(num_a,"training.csv")