# NOT RUN {
Y <- reg.fd()
Y <- reg.fd(mu=1, X=gaussian.process(), n=10, m=20)
Y <- reg.fd(mu=cos, X=kl.process(),n=100, m=20)
Y <- reg.fd(mu=cos, X=kl.process(distribution='EXPONENTIAL'),n=100, m=20)
# }
Run the code above in your browser using DataLab