geometricDI: Geometric Mean Desirability Index

Description Usage Arguments Details Value Author(s) References See Also Examples

View source: R/geomertic_di.R

Description

Computes the weighted geometric mean of a number of desirability functions.

Usage

1

Arguments

f, ...

desirability functions

weights

vector of weights

Details

The Desirability Index was introduced by Harrington (1965), and the concept was extended by Derringer and Suich (1980). It is a means for multicriteria (quality) optimization in industrial quality management. All desirability functions of the quality criteria are combined into a univariate global quality criterion in [0,1] which has to be optimized.

The function can be used for Harrington as well as Derringer and Suich desirability functions.

Value

geometricDI(f, ..., weights) returns a function object of the Geometric Mean Desirability Index.

Author(s)

Heike Trautmann trautmann@statistik.tu-dortmund.de, Detlef Steuer steuer@hsu-hamburg.de and Olaf Mersmann olafm@statistik.tu-dortmund.de

References

J. Harrington (1965): The desirability function. Industrial Quality Control, 21: 494-498.

G.C. Derringer, D. Suich (1980): Simultaneous optimization of several response variables. Journal of Quality Technology 12 (4): 214-219.

D. Steuer (2005): Statistische Eigenschaften der Multikriteriellen Optimierung mittels Wuenschbarkeiten. Dissertation, Dortmund University of Technology, http://hdl.handle.net/2003/20171.

H. Trautmann, C. Weihs (2006): On the Distribution of the Desirability Index using Harrington's Desirability Function. Metrika 63(2): 207-213.

See Also

harrington1 and harrington2 for Harrington type desirability functions; derringerSuich for desirability functions of Derringer and Suich; minimumDI,meanDI for other types of Desirability indices.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
h1 <- harrington1(-2, .9, 2, .1)
h2 <- harrington2(0, 2, 2)

di <- geometricDI(h1, h2, weights=c(1/3, 2/3))
di(c(0, 1))

## Desirability Index of vector input:
h <- harrington2(3,7,1)
g <- harrington1(-2, .1, 2, .9) 

d <- geometricDI(h, g, weights=c(0.5, 0.5))

m <- matrix(c(seq(2, 8, 0.1), seq(-2, 4, 0.1)), ncol=2, byrow=FALSE)
apply(m, 1, d) 

Example output

Loading required package: loglognorm
[1] 0.8485876
 [1] 0.1493754 0.1668178 0.1851195 0.2042267 0.2240849 0.2446401 0.2658398
 [8] 0.2876335 0.3099740 0.3328174 0.3561236 0.3798567 0.4039850 0.4284810
[15] 0.4533215 0.4784874 0.5039635 0.5297385 0.5558046 0.5821574 0.6087954
[22] 0.6357203 0.6629362 0.6904497 0.7182697 0.7464068 0.7748738 0.8036848
[29] 0.8328555 0.8624029 0.8923452 0.8777009 0.8627557 0.8475725 0.8322090
[36] 0.8167173 0.8011448 0.7855339 0.7699232 0.7543467 0.7388353 0.7234161
[43] 0.7081132 0.6929478 0.6779386 0.6631019 0.6484516 0.6340000 0.6197571
[50] 0.6057318 0.5919312 0.5783612 0.5650265 0.5519306 0.5390763 0.5264653
[57] 0.5140986 0.5019766 0.4900990 0.4784650 0.4670734

desire documentation built on May 2, 2019, 5:50 p.m.

Related to geometricDI in desire...