data(DISSOLUTION)
Test <- subset(DISSOLUTION, Product == "T")
Test <- reshape(data = Test, v.names = "Data", timevar = "Label",idvar = "Time", direction = "wide")
summary(Test)
# library(fdapace)
# Model <- FPCA(Ly = Test[, grep("Data", colnames(Test))],
# Lt = Test[, rep("Time", length(grep("Data", colnames(Test))))],
# optns = list(maxK = 5, methodSelectK = 5))
# plot(Model)
Run the code above in your browser using DataLab