正在用R做一个协整检验的循环，但是速度很慢，原循环程序如下：
cointegration <- list()
    for (i in 2:Lag_input) {
      coint_test <- ca.jo(VEC_Asset_Data, type = "trace", ecdet = "none", K = i, spec="longrun", season = NULL, dumvar = NULL)
      cointegration <- c(cointegration,list(Re(coint_test@teststat)))
    }



Lag_input是一个给定的数值，vec_asset_data是一个矩阵。
请问，如何用parallel做成多线程？

感谢！