Sexpr[results=rd,stage=build]{tools:::Rd_package_title("ALTopt")}

Description

Details

Index:

alteval.ic              Design evaluation with interval censoring.
alteval.rc              Design evaluation with right censoring.
altopt.ic               Optimal design with interval censoring.
altopt.rc               Optimal design with right censoring.
compare.fus             Comparing designs using FUS
compare.vdus            Comparing designs using VDUS
convert.stress.level    Coding and decoding stress level
design.plot             Design plot.
pv.contour.ic           Contour plot of prediction variance for a
                        design with interval censoring.
pv.contour.rc           Contour plot of prediction variance for a
                        design with right censoring.
pv.fus.ic               FUS (Fraction of Use Space) plot for interval
                        censoring.
pv.fus.rc               FUS (Fraction of Use Space) plot for right
                        censoring.
pv.vdus.ic              VDUS (Variance Dispersion of Use Space) plot
                        for interval censoring.
pv.vdus.rc              VDUS (Variance Dispersion of Use Space) plot
                        for right censoring.

Author(s)

Kangwon Seo [aut, cre], Rong Pan [aut]

Maintainer: Kangwon Seo <kseo7@asu.edu>

References

Monroe, E. M., Pan, R., Anderson-Cook, C. M., Montgomery, D. C. and Borror C. M. (2011) A Generalized Linear Model Approach to Designing Accelerated Life Test Experiments, Quality and Reliability Engineering International 27(4), 595–607

Yang, T., Pan, R. (2013) A Novel Approach to Optimal Accelerated Life Test Planning With Interval Censoring, Reliability, IEEE Transactions on 62(2), 527–536

See Also

altopt.rc, altopt.ic, alteval.rc, alteval.ic, pv.contour.rc, pv.contour.ic, pv.fus.rc, pv.fus.ic, pv.vdus.rc, pv.vdus.ic, compare.fus, compare.vdus, design.plot, convert.stress.level

Examples

# D optimal design of two stress factors with right censoring.
Design.D <- altopt.rc("D", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
coef = c(0, -4.086, -1.476, 0.01))

design.plot(Design.D$opt.design.rounded, x1, x2)

pv.contour.rc(Design.D$opt.design.rounded, x1, x2, 100, 2, 1,
formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
useCond = c(1.758, 3.159))

FUS.D <- pv.fus.rc(Design.D$opt.design.rounded, 100, 2, 1,
formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
useLower = c(1.458, 2.859), useUpper = c(2.058, 3.459))

# U optimal design of two stress factors with right censoring.
Design.U <- altopt.rc("U", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
coef = c(0, -4.086, -1.476, 0.01), useCond = c(1.758, 3.159))

design.plot(Design.U$opt.design.rounded, x1, x2)

pv.contour.rc(Design.U$opt.design.rounded, x1, x2, 100, 2, 1,
formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
useCond = c(1.758, 3.159))

FUS.U <- pv.fus.rc(Design.U$opt.design.rounded, 100, 2, 1,
formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
useLower = c(1.458, 2.859), useUpper = c(2.058, 3.459))

# Comparing D and U optimal design.
compare.fus(FUS.D, FUS.U)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(ALTopt)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/ALTopt/ALTopt-package.Rd_%03d_medium.png", width=480, height=480)
> ### Name: ALTopt-package
> ### Title:
> ###   Sexpr[results=rd,stage=build]{tools:::Rd_package_title("ALTopt")}
> ### Aliases: ALTopt-package
> ### Keywords: Accelerated Life Tests, Optimal Design
> 
> ### ** Examples
> 
> ## No test: 
> # D optimal design of two stress factors with right censoring.
> Design.D <- altopt.rc("D", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
+ coef = c(0, -4.086, -1.476, 0.01))
> 
> design.plot(Design.D$opt.design.rounded, x1, x2)
> 
> pv.contour.rc(Design.D$opt.design.rounded, x1, x2, 100, 2, 1,
+ formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
+ useCond = c(1.758, 3.159))
> 
> FUS.D <- pv.fus.rc(Design.D$opt.design.rounded, 100, 2, 1,
+ formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
+ useLower = c(1.458, 2.859), useUpper = c(2.058, 3.459))
> 
> # U optimal design of two stress factors with right censoring.
> Design.U <- altopt.rc("U", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
+ coef = c(0, -4.086, -1.476, 0.01), useCond = c(1.758, 3.159))
> 
> design.plot(Design.U$opt.design.rounded, x1, x2)
> 
> pv.contour.rc(Design.U$opt.design.rounded, x1, x2, 100, 2, 1,
+ formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
+ useCond = c(1.758, 3.159))
> 
> FUS.U <- pv.fus.rc(Design.U$opt.design.rounded, 100, 2, 1,
+ formula = ~ x1 + x2 + x1:x2, coef = c(0, -4.086, -1.476, 0.01),
+ useLower = c(1.458, 2.859), useUpper = c(2.058, 3.459))
> 
> # Comparing D and U optimal design.
> compare.fus(FUS.D, FUS.U)
> ## End(No test)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>