> nls.sol<-nls(gini~exp(-A*gdppc)-exp((-A-B)*gdppc),data=s,start=list(A=0,B=0))
错误于nlsModel(formula, mf, start, wts) :
  参数初始估计值里有奇异梯度矩阵
> nls.sum<-summary(nls);nls.sum
错误于object[] : 类别为'closure'的对象不可以取子集