## This method is usually used only for the package's core programming!!!
# creates an experimental design with the method "Morris"
# to analyze the model "Ishigami":
# Specify the factors to analyze:
	x1 <- make.mtkFactor(name="x1", distribName="unif",
	 distribPara=list(min=-pi, max=pi)) 
	x2 <- make.mtkFactor(name="x2", distribName="unif",
     distribPara=list(min=-pi, max=pi)) 
	x3 <- make.mtkFactor(name="x3", distribName="unif", 
     distribPara=list(min=-pi, max=pi)) 
	
	factors <- mtkExpFactors(list(x1,x2,x3)) 
	
# Build the designer:
	exp1.designer <- mtkNativeDesigner(design="Morris", 
	      information=list(r=20,type="oat",levels=4,grid.jump=2))
	
# Test if the process is ready to run
	is.ready(exp1.designer)
Run the code above in your browser using DataLab