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