Create a new RFF function
RFF_get(D = 2, M = 30, wave = sin, noise = 0, seed = NULL)
A random wave function
Number of dimensions
Number of random waves
Type of wave
Standard deviation of random normal noise to add
Seed to set before randomly selecting function
func <- RFF_get(D=1) curve(func) f <- RFF_get(D=1, noise=.1) curve(f(matrix(x,ncol=1))) for(i in 1:100) curve(f(matrix(x,ncol=1)), add=TRUE, col=sample(2:8,1))
Run the code above in your browser using DataLab