# Create irregular functional data directly
argvals <- list(
c(0.0, 0.3, 0.7, 1.0),
c(0.0, 0.2, 0.5, 0.8, 1.0),
c(0.1, 0.4, 0.9)
)
X <- list(
c(0.1, 0.5, 0.3, 0.2),
c(0.0, 0.4, 0.6, 0.4, 0.1),
c(0.3, 0.7, 0.2)
)
ifd <- irregFdata(argvals, X)
print(ifd)
plot(ifd)
Run the code above in your browser using DataLab