# NOT RUN {
t = 1:50
curves = matrix(sin(t)+rnorm(length(t)),nrow=1)
f.data <- fdata_rkhs(curves, rk = rk(t,sigma = 0.01))
plot(t,curves, xlab='time', ylab='PM10 dataset', col='gray', lty=1, type='b')
lines(t,f.data$fdata, col='blue', lty=1)
# }
Run the code above in your browser using DataLab