t <- seq(0, 1, length.out = 100)
fd <- simFunData(n = 50, argvals = t, M = 5, seed = 42)
ifd <- sparsify(fd, minObs = 10, maxObs = 30, seed = 123)
# Recommended: basis method
mean_fd <- mean(ifd)
plot(mean_fd, main = "Estimated Mean Function")
# Alternative: kernel method
mean_kernel <- mean(ifd, method = "kernel", bandwidth = 0.1)
Run the code above in your browser using DataLab