# Create example data frame
df <- data.frame(
id = rep(c("surf1", "surf2"), each = 5),
s = rep(1:5, 2),
t1 = rnorm(10),
t2 = rnorm(10),
t3 = rnorm(10)
)
fd <- df_to_fdata2d(df)
print(fd)
# With metadata
meta <- data.frame(group = c("A", "B"), value = c(1.5, 2.3))
fd <- df_to_fdata2d(df, metadata = meta)
Run the code above in your browser using DataLab