weibullR 包中是否有任何函数可以在 R 中获取 Reliabilty v/s 时间图?

Is there any function in weibullR package to get Reliabilty v/s Time graph in R?

我正在使用 WeibullR 包在 R 中绘制可靠性 v/s 时间图。 但默认情况下,它会打印不可靠性与时间的关系。 有什么方法可以使它成为可靠性与时间图? 提前致谢

使用的库:

图书馆(WeibullR)

图书馆(WeibullR) df <- data.frame(时间 = c(10000, 10000, 20000, 20000, 30000, 30000, 30000, 30000, 40000, 50000, 50000, 60000, 70000, 70000, 70000, 70000, 80000, 80000, 80000, 80000, 90000, 90000, 100000), 事件 = 代表 (1, 23)) weibl <- 1- wblr(df, col="darkgreen",label="censored dataset", dist = "weibull2p", ylab = "check") weibl_fit <- wblr.fit(weR, col = "Red", method.fit = "rr") 数据 <- wblr.conf(weibl_fit, col="blue") 情节(数据)

默认绘制不可靠性[%] 与故障时间。 预期是可靠性与时间的关系。

这里的 df 是以时间和事件作为两个列名的数据帧。对于以下库,您的列名必须采用这种格式(即:事件和时间)。

为了绘制可靠性与时间的关系图,我使用上面的 df 作为输入。

图书馆(WeibullR)

weibl <- wblr(df, col="darkgreen",label="censored dataset", dist = "weibull2p", ylab = "Unreliability")

data <- wblr.fit(weibl, col = "Red", method.fit = "mle", dist = "weibull2p") 可靠性<-数据$数据$dpoints

plot(x =reliability$time, y = ((1-reliability$ppp)*100), xlab = "Time", ylab = "reliability", xlim=c(1000,100000 ), ylim=c(0,100), col="orange")

上图将为您提供可靠性与时间关系图。