Demo entry 6762033

s

   

Submitted by anonymous on Oct 10, 2018 at 04:15
Language: S. Code size: 602 Bytes.

##############################################################
#  weibull、对数正态、指数和正态分布下的导弹电子系统寿命分布 #
##############################################################

#加载SPREDA R包
library(SPREDA)
#加载SPREDA 开发版补充函数
source("https://raw.githubusercontent.com/CodeOwl94/ross-reliability/
       master/ReliabilitySupportFns.R")
#加载数据
hour <- c(14.4,2.1,0.4,18.6,1.2,3.6,11.5,18.4,14.0,2.8,7.6,2.7,35.4,
          10.4,19.8,11.3,2.6,1.8,11.3,5.4)
#构造适合函数的数据结构,
#需要注意event是逻辑变量1表示未截断0表示截断。
#对于这组数据全为未截断数据,可以直接设置event=1
dat <- data.frame(time=hour,event=1)
#绘制不同模型下的寿命分布。
Probability.Plots(dat)

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).