# Create an exponential covariance function
cov_func <- kernel.exponential(variance = 1, length_scale = 0.2)
# Evaluate covariance matrix
t <- seq(0, 1, length.out = 50)
K <- cov_func(t)
# Generate rough GP samples
fd <- make.gaussian.process(n = 10, t = t, cov = cov_func)
plot(fd)
Run the code above in your browser using DataLab