The WSP (Wooton, Sergent, Phan-Tan-Luu) algorithm is an iterative algorithm based on suppression of some experiments from an initial design in each step. WSP leads to a space filling design.
Usage
wspDesign(design,dmin)
Arguments
design
a matrix (or a data.frame) corresponding to the design of experiments.
dmin
a minimum bound for mindist value of the final design
Details
WSP enables to create a design D which is such that mindist(D)>dmin. However, it cannot assess the number of experiments. Similarly to straussDesign function, WSP is a powerful algorithm to construct space filling designs in high dimension
Value
A list containing:
InitialDesign
the starting design
dmin
minimum bound for mindist value of the final design
design
the matrix of the final design
Author(s)
G.Damblin & B.Iooss
References
J. Santiago, M. Claeys-Bruno, M.Sergent (2012). Construction of space filling designs using WSP algorithm for high dimensional spaces,
Chenometrics and Intelligent Laboratory Systems, 113:26-31.
Examples
dimension <- 2
n <- 100
X <- matrix(runif(n*dimension),n,dimension)
m=wspDesign(X,0.1)
plot(m$design)
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(DiceDesign)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/DiceDesign/wspDesign.Rd_%03d_medium.png", width=480, height=480)
> ### Name: wspDesign
> ### Title: WSP algorithm
> ### Aliases: wspDesign
> ### Keywords: design
>
> ### ** Examples
>
> dimension <- 2
> n <- 100
> X <- matrix(runif(n*dimension),n,dimension)
> m=wspDesign(X,0.1)
> plot(m$design)
>
>
>
>
>
> dev.off()
null device
1
>