Discrete_Discrepancy function

Measure of Discrete Discrepancy

Discrete Discrepancy is a measure of uniformity for any uniform design. Lesser the value of Discrete Discrepancy measure, better is the uniform design.

Discrete_Discrepancy(Design,a,b)

Arguments

• Design: A matrix
• a: Any value a>b>0. By default it is set to 1.
• b: Any value a>b>0. By default it is set to 0.5.

Returns

The function calculates the value of Discrete Discrepancy measure and its lower bound for a given design.

References

Qin H, Fang KT (2004)DOI:10.1007/s001840300296 Discrete discrepancy in factorial designs. Metrika, 60, 59-72.

Author(s)

Ashutosh Dalal, Cini Varghese, Rajender Parsad and Mohd Harun

Examples

library(CompExpDes)
lhd1<-matrix(c(1,5,7,3,4,2,6,2,1,4,5,3,7,6,4,5,6,1,2,3,7),nrow=7,ncol=3,byrow=FALSE)
lhd2<-cbind(lhd1[,3],lhd1[,2],lhd1[,1])
ud<-rbind(lhd1,lhd2)
Discrete_Discrepancy(ud, 1, 0.5)