#Friedman function
fun <- function (X)
{
Y <- 10*sin(pi*X[1]*X[2]) + 20*(X[3] - 0.5)^2 + 10*X[4] + 5*X[5]
return(Y)
}
design = mofat(p=10, l=3)
y = apply(design, 1, fun)
#Screening measures
measure(design, y)
Run the code above in your browser using DataLab