R语言入门 -- 函数的使用：计算1~n之间的质数个数

本文链接：https://blog.csdn.net/weixin_58587245/article/details/122017971

今天第一天接触一下R语言，尝试编写函数并调用，主要涉及到运算符的使用、自定义函数的编写与调用、循环和分支语句的使用等知识点，欢迎小伙伴一起学习讨论。

写函数：计算1~n之间的质数

CalcPrimeNum <- function(max_num){
  if(!(max_num>1&round(max_num)==max_num)){
    return('传参错误')
  }
  prime_count <- 0
  for(i in 2:max_num){
    fac_count<-0 
    
    for(j in 1:i){
      if(i%%j==0){
        fac_count <- fac_count+1
      }
    }
    if(fac_count==2){
      prime_count <- prime_count+1
    }#嵌套内循环，判断i是否为质数，如果是质数,计数变量值+1

  }#遍历1到n的外循环
  
    return(prime_count)
}

注：（供和我一样的小白哦~）涉及到的运算符 <- 左分配赋值运算符，！逻辑非运算符，&元素逻辑AND运算符，==判断左右是否相等（关系运算符），%%求余算术运算符。

将写好的函数文件，保存在自己的文件夹中。

调用函数，举例计算10以内的质数

path = "F:/R code" #声明函数文件所在的位置
setwd(path)#把'工作路径设置到path
source('PrimeNum.R') #'预装'函数，这是文件的名字

#调用函数
CalcPrimeNum(11) # 1到10以内的质数有4个（2,3,5,7）不算1

注：自己写的时候的两个注意的点

1.path = "F:/R code" 注意当我从文件夹中复制路径的过来后，显示的是"F:\R code"，斜杠方向不一样，R语言中是/

否则会报错如下：

2.调用函数的第三行，记得R语言的函数文件后面还有..R，不要忘记了

否则报错如下：

参考文献：

R语言运算符_w3cschool

R语言——如何调用自己写的函数_张琪的博客-CSDN博客_r语言调用函数

《数据分析师求职面试指南》徐麟著 P104-112

Terry.2021 12 18