- LJ.Theil <- function(data,Y,N,by=NULL ,na.rm = TRUE , file=NULL)
- {
- ans<-ddply(.data=data,by,summarize,S=sum(Y),na.rm=T) #这里出错:“object ‘Y’ not found”
- ....
- }
准备了一个数据框 :ineq 如下:
然后执行命令:LJ.Theil(data = ineq,by=c("ID"),Y = y,N = n) 或者
LJ.Theil(data = ineq,by=c("ID"),Y = ineq$y,N = ineq$n)
都是出错:Error in eval(expr, envir, enclos) : object 'Y' not found
琢磨很长时间都没有弄明白为什么,没办法过来发问了,期待指点!