library(ILS)
data(TG)
delta <- seq(from = 40 ,to = 850 ,length.out = 1000 )
curves.fqcd <- lab.fqcd(TG, argvals = delta)
xlab <- "Temperature/ C"
ylab <- "Mass/ %"
main <- "TG curves obtained from calcium oxalate"
p <- dim(curves.fqcd$curves)[3]
col <- 1:p
plot(x = curves.fqcd, main, xlab, ylab, col= col,legend = FALSE)
legend(45,70,paste("Lab",col),
col = col, lty = 1, lwd = 2, cex =0.8)
Run the code above in your browser using DataLab