# Two-component multivariate functional data
t1 <- seq(0, 1, length.out = 100)
t2 <- seq(0, 0.5, length.out = 50)
mfd <- simMultiFunData(
n = 20,
argvals = list(t1, t2),
M = c(5, 3),
eFun.type = c("Fourier", "Wiener"),
eVal.type = c("exponential", "linear")
)
# Plot first component
plot(mfd$components[[1]], main = "Component 1")
Run the code above in your browser using DataLab