请教，在R中如何正确导入自己已经编好的函数？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题说明，已经在脚本中编好了函数，但是用source（）函数载入的时候老是出错，请教各位大侠。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Source 各位大侠 Our 请教 函数

example from Programming in R

myfct <- function(x1, x2=5) {                 
z1 <- x1/x1;
z2 <- x2*x2               
myvec <- c(z1, z2)                 
return(myvec)}

save as myfct.R

##Executing an R script from the R console
source("myfct.R")
myfct(x1=2, x2=5)

2# epoh 首先谢谢二楼不吝赐教，可是我之前这么试过，好像不管用啊，好像 source("integrate.R")
错误于as.vector(x, mode) :
  cannot coerce type 'builtin' to vector of type 'any'   这个错误，请教下大侠，该怎么处理？

貌似是integrate.R里的错误，你这个脚本有问题……而不是source的问题

支持一下  ，正在学习

可能是你写的代码有点问题吧。比如vector付给了scalar之类的东西。

1. # 首先编写一个函数储存为testing.RData，然后在Rprofile.site文档中添加以下编码
   
2. load('C:/Desktop/testing.RData')

复制代码

每当打开R软件就会自动读取而无须另行导入函数。希望可以帮到楼主~

#ryusukekenji ,不明白您上面的步骤
能否举个例子帮忙讲解清楚，谢谢

1. #首先在R console编写以下函数（以下本人随手编写的样本函数而已）
   
2. >test <- function(x)mean(log(x))
   
3. >save.image("C:/Desktop/testing.RData")
   
4. >file.edit(file.path(R.home(), 'etc', 'Rprofile.site'))
   
5. 
   
6. #在Rprofile.site的文档中添加以下编码
   
7. load('C:/Desktop/testing.RData')
   
8. 
   
9. #关闭Rconsole。好了，现在开始只要我们一打开Rconsole就可以运用到储存的test(x)函数了。
   
10. #重启Rconsole后直接输入以下编码（直接使用函数之意）
    
11. > test(5)
    
12. [1] 1.609438
    
13. > test(5:6)
    
14. [1] 1.700599

复制代码

希望与大伙儿分享～

##ryusukekenji ,非常感谢，试试先