在R中的不同线程/任务中运行不同函数

library(parallel)

# 创建一个包含多个线程的集群
cl <- makeCluster(2)

# 定义要在不同线程中运行的函数
func1 <- function() {
  # 第一个函数的代码
}

func2 <- function() {
  # 第二个函数的代码
}

# 在集群中的不同线程中并行运行不同的函数
results <- parLapply(cl, list(func1, func2), function(f) f())

# 关闭集群
stopCluster(cl)

library(foreach)
library(doParallel)

# 创建一个多线程并行计算环境
cl <- makeCluster(2)
registerDoParallel(cl)

# 定义要在不同线程中运行的函数
func1 <- function() {
  # 第一个函数的代码
}

func2 <- function() {
  # 第二个函数的代码
}

# 在多个线程中并行运行不同的函数
results <- foreach(f = c(func1, func2)) %dopar% {
  f()
}

# 关闭并行计算环境
stopCluster(cl)