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

想用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扩展包可以求基尼系数，但是我特别想知道我错哪里了

我是专门为不了解论坛、不熟悉论坛的资深专家以及非坛友学者准备的公共账号，用于宣传推广论坛，欢迎各位积极捐赠，谢谢！

知道答案了，版主呢，怎么取消悬赏啊。

小憨孩儿 发表于 2017-7-22 09:28
知道答案了，版主呢，怎么取消悬赏啊。

不能取消悬赏的，版主让我来接收捐赠，哈哈。

小憨孩儿 发表于 2017-7-22 09:28
知道答案了，版主呢，怎么取消悬赏啊。

不能取消悬赏，我补偿给你吧。
你如果已经知道了答案，最好来公示一下帮助更多的人呐，我可以进一步奖励资助你的。

happy_287422301 发表于 2018-3-14 11:23
不能取消悬赏，我补偿给你吧。
你如果已经知道了答案，最好来公示一下帮助更多的人呐，我可以进一步奖励 ...

时间好久，我都忘记答案了。。

小憨孩儿 发表于 2018-3-14 20:15
时间好久，我都忘记答案了。。

没关系的，人之常情。我之所以倡议大家有答案就共享一下，除了帮助他人，也有一个做笔记的考虑（有时候整理出来、写出来就是一个极大的提高呐）

应该没人用得上，还是贴出来给自己看看，当时应该是代码没注意分行，找出来正确的代码如下：
gini <- function(x,correct=FALSE){
n = length(x)
fun = function(a,b) abs(a-b)
ifelse(correct,sum(as.numeric(outer(x,x,fun)))/(2*n*(n-1)*mean(x)),
sum(as.numeric(outer(x,x,fun)))/2*n^2*mean(x))}
forages.gini <- apply(forages1,2,gini,correct=T)
forages.gini