# Create sparse data
t <- seq(0, 1, length.out = 100)
fd <- simFunData(n = 10, argvals = t, M = 5, seed = 42)
ifd <- sparsify(fd, minObs = 10, maxObs = 30, seed = 123)
# Convert back to regular grid with NA
fd_na <- as.fdata(ifd)
# Convert with linear interpolation
fd_interp <- as.fdata(ifd, method = "linear")
Run the code above in your browser using DataLab