Demo entry 6762136

s

   

Submitted by anonymous on Oct 10, 2018 at 12:40
Language: S. Code size: 365 Bytes.

#加载WeibullR包
library(WeibullR)
#利用Weibull对数据进行建模
#部分函数解释
#wblr:用来创建一个"wblr"对象,为其他的wblr.xx函数使用
#wblr.fit:对wblr"对象添加拟合分布
#wblr.fit:对wblr"对象添加置信区间
da2 <- wblr.conf(wblr.fit(wblr(hour,col="red")))
#利用对数正态分布对数据进行建模
da3 <- wblr.conf(wblr.fit(wblr(hour,col="blue3",pch=8),
                          dist="lognormal"))
#绘制wblr对象
plot.wblr(list(da2,da3),main='')

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).