shuju=read.csv(file="E:\\项目\\YMX_STATISTICS_1.csv")
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条数据左右)