library(ILS)
data(TG)
delta <- seq(from = 40 ,to = 850 ,length.out = 1000 )
curves.fqcd <- lab.fqcd(TG, argvals = delta)
fk <- k.fqcs(curves.fqcd)
p <- fk$p
xlab <- "Temperature (Grade Celsius)"
ylab <- "Mass (%)"
main <- "Functional ki Estimation"
plot(fk,main = main, xlab = xlab, ylab = ylab, ylim=c(0,3),col=1:p)
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