【求助】R自定义函数的写法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

f1表
区域	预测数量	实际数量
q	100	200
w	20	30
e	200	190

f1表是原始数据，希望通过公式计算得出如下表f11，标注黄色是新增序列，我写了个自定义函数如下，运行后却没有结果，
请专家帮忙看看，谢谢！
setwd("E:/Rdata")
f11=read.csv(file="f1.csv")
rate <- function(x) {
  attach(x)
  n=nrow(x)
  for(i in 1:n){
    x$预测准确率=1-abs(预测数量-实际数量)/实际数量
  }
  detach(x)
}
rate(f11);f11

表f11：

区域	预测数量	实际数量	预测准确率
q	100	200	50%
w	20	30	67%
e	200	190	95%

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：自定义函数 自定义 RData READ Data file 黄色

1. 1 - abs(f11[, 1] - f11[, 2]) / f11[, 2]

复制代码

在detach(x)下面加一行x表示返回结果x应该就可以了。而且你这个问题本身就不需要搞这么复杂，在你读取数据之后直接within(f11,预测准确率=1-abs(预测数量-实际数量)/实际数量)就可以了

-Batistuta- 发表于 2015-3-15 11:08
在detach(x)下面加一行x表示返回结果x应该就可以了。而且你这个问题本身就不需要搞这么复杂，在你读取数据之 ...

谢谢你的解答。
我用自定义函数，是因为还有很多个类似的表，也需要这样测算。

1. f11=read.csv(file="f1.csv")
   
2. rate <- function(x) {
   
3.   n=nrow(x)
   
4.   for(i in 1:n){
   
5.     x$预测准确率=1-abs(预测数量-实际数量)/实际数量
   
6.    
   
7.   }
   
8.   return(x)
   
9. }
   
10. rate(f11)
    
11. rm(f11)

复制代码

R语言函数都是值传递，不会改变参数（也就是这里的f11）值的。

所以你在函数中用detach貌似没什么用。。。

陈宝林 发表于 2015-3-15 15:34
R语言函数都是值传递，不会改变参数（也就是这里的f11）值的。

谢谢专家的指教！
return(x)的作用是？
我想把f11的表输出到文件夹（假如是csv格式），在自定义函数里面怎么写呢？还请赐教。

wuchm 发表于 2015-3-15 15:42
谢谢专家的指教！
return(x)的作用是？
我想把f11的表输出到文件夹（假如是csv格式），在自定义函数里面 ...

write.csv(rate(f11),file="hahah.csv")

hahah是文件名，自己改，如果要保存到其他位置可以改

你要问return(x)的作用，说明你没有学过C语言了，好吧，就是函数执行后这个表达式有一个值的，这个值就是用return返回的那个啦