powered by
f1d
Noisy 1d test function (1) Add Gaussian noise with variance r(x) = scale * (1.1 + sin(2 pi x))^2 to f1d
f1d_n(x, scale = 1)
scalar or matrix (size n x 1) in [0,1]
scalar in [0, Inf] to control the signal to noise ratio
X <- matrix(seq(0, 1, length.out = 101), ncol = 1) Xr <- X[sort(sample(x = 1:101, size = 500, replace = TRUE)),, drop = FALSE] plot(Xr, f1d_n(Xr)) lines(X, f1d(X), col = "red", lwd = 2)
Run the code above in your browser using DataLab