library(ILS)
data(TG)
delta <- seq(from = 40 ,to = 850 ,length.out = 1000 )
curves.fqcd <- lab.fqcd(TG, argvals = delta)
fh <- h.fqcs(curves.fqcd)
xlab <- "Temperature(Grade Celsius)"
ylab <- "Mass (%)"
main <- "Functional hi Estimation"
p <- fh$p
plot(fh,main = main, xlab = xlab, ylab = ylab,col=1:p,ylim=c(-3,3))
legend(10,3,paste("Lab",1:p),
col=1:p,lty=1,lwd=2,cex=0.7)
Run the code above in your browser using DataLab