# NOT RUN {
ishigami.fun <- function(X) {
A <- 7
B <- 0.1
sin(X[, 1]) + A * sin(X[, 2])^2 + B * X[, 3]^4 * sin(X[, 1])
}
X <- matrix(runif(3*50, -pi, pi), ncol = 3)
Y <- ishigami.fun(X)
estimation <- topsa(Ydat = Y, Xdat = X,method = "Alpha")
# }
Run the code above in your browser using DataLab