发帖
雷达卡
rowFilter=shuju$CR_DR_IND=='D' #提出交易为D的数据
ss=shuju[rowFilter,'SUM_AMOUNT']
p=rank(ss)/length(ss) #计算累计概率
library(ggplot2)
qplot(x=log(ss),y=p) #画出累计分布图
m.e=nls(p~a*(1-exp(-b*ss))+c,start=list(a=1,b=1,c=1)) #对数据做拟合
想法：
对一组数据画出累积分布图，然后拟合出方程。、
问题：
Error in numericDeriv(form[[3L]], names(ind), env) :
在计算模型的时候产生了缺省值或无限值
（但是做缺失值检验，出的结果是0。> sum(is.na(ss)) [1] 0）
求问大神们如何解决？？
（ps:数据已经上传了，想对SUM_AMOUNT做累积分布图然后拟合出方程，如果有哪位大神可以帮我做一下，万分感谢！数据有点大、40w条数据左右）
数据.rar
(4.81 MB)
本附件包括：- YMX_STATISTICS_1.csv
京公网安备 11010802022788号
