MuFiCokriging (version 1.2)

ExtractNestDesign: Extraction of the experimental design set of a level from an object of class ("NestedDesign")

Description

Extract the experimental design set of level number i from an object of class ("NestedDesign") representing a nested experimental design set.

Usage

ExtractNestDesign(NestDes,level)

Arguments

NestDes

an object of class ("NestedDesign").

level

an integer indicating the level from which we want to extract the experimental design set.

Value

a matrix corresponding to the extracted experimental design set.

See Also

MuFicokm, NestedDesign

Examples

#-- Nested Experimental design sets
	dimension <- 3
	nD1 <- 100
	nD2 <- 50		
	nD3 <- 20
	set.seed(1);D1 <- matrix(runif(n=nD1*dimension, 0,1),ncol=dimension)
	set.seed(2);D2 <- matrix(runif(n=nD2*dimension, 0,1),ncol=dimension)
	set.seed(3);D3 <- matrix(runif(n=nD3*dimension, 0,1),ncol=dimension)
	NestDesign  <- NestedDesignBuild(design = list(D1,D2,D3))
#-- Design set at level 1
	NestDesign$PX
#-- Extraction of design sets at level 2 and 3
	ExtractNestDesign(NestDesign,2)
	ExtractNestDesign(NestDesign,3)