我正在使用WeibullR软件包绘制R中的可靠性v / s时间图。 但是默认情况下,它会打印不可靠性与时间的关系。 有什么方法可以使其可靠性与时间关系图? 预先感谢
使用的图书馆:
库(WeibullR)
图书馆(WeibullR) df <-data.frame(time = c(10000,10000,20000,20000,30000, 30000、30000、30000、40000、50000, 50000,60000,70000,70000,70000, 70000,80000,80000,80000,80000, 90000、90000、100000), 事件= rep(1,23)) weibl <-1- wblr(df,col =“ darkgreen”,label =“审查数据集”,dist =“ weibull2p”,ylab =“ check”) weibl_fit <-wblr.fit(weR,col =“ Red”,method.fit =“ rr”) 数据<-wblr.conf(weibl_fit,col =“ blue”) 情节(数据)
默认情况下,它绘制的不可靠性[%]与失效时间的关系。 预期的是可靠性与时间的关系。
答案 0 :(得分:0)
此处df是具有时间和事件作为两个列名称的数据帧。对于下面的库,要求您的列名应采用这种格式(即事件和时间)。
要绘制可靠性与时间的关系图,我将使用df以上的值作为输入。
库(WeibullR)
weibl <-wblr(df,col =“ darkgreen”,label =“审查数据集”,dist =“ weibull2p”, ylab =“不可靠”)
数据<-wblr.fit(weibl,col =“ Red”,method.fit =“ mle”,dist =“ weibull2p”) 可靠性<-data $ data $ dpoints
图(x =可靠性$时间,y =((1-可靠性$ ppp)* 100),xlab =“时间”,ylab =“可靠性”,xlim = c(1000,100000),ylim = c( 0,100),col =“ orange”)
上图将给您可靠性与时间的关系图。