Description Usage Arguments Value See Also Examples
Get planning value for a reliability test
1 | get.plan.values(distribution, beta, sigma, prob, time, time.units = "Time")
|
distribution |
|
beta |
|
sigma |
|
prob |
|
time |
|
time.units |
A list of reliability test plan values
codelinklife.test.simulation codelinkasd.quant
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | ## Not run:
plan.values1 <- get.plan.values("Weibull",
beta = 2,
prob = .1,
time = 100,
time.units = "Hours")
life.test.simulation(plan.values1,
n = 50,
censor.time = 120,
number.detail = 5,
quantile.mark = 0.2)
plan.values2 <- get.plan.values("Lognormal",
sigma = 0.5,
prob = 0.1,
time = 100,
time.units = "Hours")
summary(plan.values2)
plot(plan.values2)
plot(plan.values2, censor.time=1000, grids=F)
life.test.simulation(plan.values2,
n = 50,
censor.time = 1000,
quantile.mark = .1)
plan.values3 <- get.plan.values("Weibull",
prob = c(.2,.12),
time = c(1000,500),
time.units = "Hours")
plan.values4 <- get.plan.values("Weibull",
prob = c(.05,.15),
time = c(40000,100000),
time.units = "Hours")
summary(plan.values3)
plot(plan.values3)
life.test.simulation(plan.values3,
n = 50,
censor.time = 1000,
quantile.mark = 0.1)
#compare the simulated value with the large-sample approx below
asd.quant(plan.values3,
n=50,
censor.time = 1000,
quantile.mark = 0.1)
#compare:
asd.quant(plan.values3,
n=50,
censor.time = 1000,
quantile.mark = 0.1)*sqrt(50)
asd.quant(plan.values3,
n=500,
censor.time = 1000,
quantile.mark = 0.1)*sqrt(500)
asd.quant(plan.values3,
n=5000,
censor.time = 1000,
quantile.mark = 0.1)*sqrt(5000)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.