关于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扩展包可以求基尼系数，但是我特别想知道我编写的公式错哪里了。。。

你少写半个括号

1. gini <- function(x,correct=FALSE){
   
2.   n=length(x)
   
3.   fun=function(a,b) abs(a-b)
   
4.   ifelse(correct,
   
5.          sum(outer(x,x,fun))/(2*n*(n-1)*mean(x)),
   
6.          sum(outer(x,x,fun))/(2*n^2*mean(x)))
   
7. }
   
8. 
   
9. gini(x=rnorm(10),correct=FALSE)

复制代码

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

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