Discrete_Discrepancy {CompExpDes}

Measure of Discrete Discrepancy

Description

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

Usage

Discrete_Discrepancy(Design,a,b)

Arguments

Design

A matrix

a

Any value a>b>0

b

Any value a>b>0

Value

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

Author(s)

Ashutosh Dalal, Cini Varghese, Rajender Parsad and Mohd Harun

References

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

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])
lhd<-rbind(lhd1,lhd2)
Discrete_Discrepancy(lhd, 1, 0.5)