# Model: Ishigami
n = 100
X = matrix(runif(3*n, -pi, pi), ncol = 3)
y = ishigami.fun(X)
# Test the significance of X1, H0: S1 = 0
EPtest(X[, 1], y, u = NULL)
# Test if X1 is sufficient to explain Y, H0: S1 = S123
EPtest(X, y, u = 1)
# Test if X3 is significant in presence of X2, H0: S2 = S23
EPtest(X[, 2:3], y, u = 1)
Run the code above in your browser using DataLab