关于R的编写的公式代码问题，不知在哪错了，求指导 - 经管之家

› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛

关于R的编写的公式代码问题，不知在哪错了，求指导

956

2

收藏 2017-07-20

悬赏 50 个论坛币已解决

想用R求基尼系数，编写的代码如下：
gini <- function(x,correct=FALSE){n=length(x) fun=function(a,b)abs(a-b)ifelse(correct,sum(outer(x,x,fun))/(2*n*(n-1)*mean(x)),sum(outer(x,x,fun))/2*n^2*mean(x)))}
运行后提示:
Error: unexpected symbol in "gini <- function(x,correct=FALSE){n = length(x)fun"
刚学习呢，没看懂是哪个符号有问题，求大神指导一下！！！谢谢啊
当然我也知道有个ineq扩展包可以求基尼系数，但是我特别想知道我编写的公式错哪里了。。。

最佳答案

zhou1_20 查看完整内容

你少写半个括号

二维码

扫码加我拉你入群

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

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

全部回复

2017-7-20 10:59:58

你少写半个括号

复制代码

二维码

扫码加我拉你入群

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

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

2017-7-21 17:58:56

zhou1_20 发表于 2017-7-21 09:45
你少写半个括号

谢谢啦，是换行符的问题，原来这个代码还要换行，我直接就一行编写运行了。基于你乐于助人的精神，设为最佳答案了，谢谢你！

二维码

扫码加我拉你入群

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

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

栏目导航

热门文章

推荐文章

扫码加好友，拉您进群

各岗位、行业、专业交流群