其他分享
首页 > 其他分享> > R语言中自定义函数、调用、加载

R语言中自定义函数、调用、加载

作者:互联网

 

1、自定义函数之位置参数

> testfun1 <- function(arg1, arg2){         ## 自定义函数,给与两个参数arg1、arg2
+   result = arg1 - arg2
+   print(result)
+ }
> testfun1(10, 3)     ## 默认就是位置参数,即arg1等于10, arg2等于3
[1] 7
> testfun1(3, 10)     ## 默认是位置参数
[1] -7

 

2、自定义函数之关键字参数

> testfun1 <- function(arg1, arg2){
+   result = arg1 - arg2
+   print(result)
+ }
> testfun1(arg1 = 10, arg2 = 3)      ## 利用关键字精准指定参数的值,位置参数此时不起作用
[1] 7
> testfun1(arg2 = 10, arg1 = 3)
[1] -7

 

3、自定义函数之默认参数

> testfun1 <- function(arg1 = 10, arg2){        ## 定义函数时指定arg1为10, 即参数默认值是10
+   result = arg1 - arg2
+   print(result)
+ }
> testfun1(arg2 = 3)            ## 调用函数时, 不指定arg1的值,则默认是10
[1] 7
> testfun1(arg2 = 3, arg1 = 5)   ## 指定arg1为5, 则默认参数不起作用
[1] 2

 

4、加载函数(将编写好的函数已保存为文件)

 

 

 

 

单个加载:

> dir()
[1] "a.r"   "a.txt" "b.r"   "c.txt"
> source("a.r")     ## 加载a.r函数并调用
> testfun1(10, 20)
[1] -10

 

批量加载:

> dir()
[1] "a.r"   "a.txt" "b.r"   "c.txt"
> list.files(pattern = ".r$")       ## 列出当前目录中所有以.r结尾的文件
[1] "a.r" "b.r"
> for (i in list.files(pattern = ".r$")) {
+   source(i)                       ## 批量加载
+ }
> testfun1(10, 20)
[1] -10
> testfun2(10, 20)
[1] 30

 

标签:10,调用,自定义,##,arg1,arg2,testfun1,加载
来源: https://www.cnblogs.com/liujiaxin2018/p/16204380.html