R语言并行

R语言编程课堂任务：
考察R语言的函数、循环、if条件句编程
编写一个函数，函数的要求：
➢ 对向量里的每一个元素进行y = 0.5x + 1的映射;
➢ 如果0<y<=10则y1=1，10<y<=20或者y>40则y1=2,否
则y1=3;
➢ 最后函数返回y1;
最后用函数计算向量为c(1:100)的映射值
串行：

fun_test <- function(Vy){
  y1 = c()
  Vy = 0.5 * Vy + 1
  for(i in Vy){
    if(0<i&i<=10){
      y1 <- c(y1,1)
    }
    if(10<i&i<=20|i>40){
      y1<-c(y1,2)
    }
    else{
      y1 <- c(y1,3)
    }

  }
print(y1)
  }

并行 版本

fun_test <- function(Vy){
  y = 0.5 * Vy + 1
    if(0<y&y<=10){
      y1 <- 1
    }
    else if(10<y&y<=20|y>40){
      y1<- 2
    }
    else{
      y1 <- 3
    }
    
  return(y1)
}
library(parallel)
clnum<-detectCores() - 1 #设置核心数
cl <- makeCluster(getOption("cl.cores", clnum)) # 创建并行环境
res <- parLapply(cl, 1:100000,  fun_test) # 运行算法
stopCluster(cl)# 关闭并行
print(res[1:5])
print(length(res))