## Not run:
# library(ILS)
# data(TG)
# delta <- seq(from = 40 ,to = 850 ,length.out = 1000 )
# curves.fqcd <- lab.fqcd(TG, argvals = delta)
# p <- curves.fqcd$p
# curves.fqcs <- lab.fqcs(curves.fqcd)
# summary(curves.fqcs)
# names(curves.fqcs)
#
# ##### Statistical Functional
# windows(20,10)
# xlab <- "Temperature (C)"
# ylab <- "Mass (%)"
# main <- "Statistical Functional"
# col <- 1:p
# ## End(Not run)
Run the code above in your browser using DataLab