## Not run:
# library(ILS)
# data(TG)
# delta <- seq(from = 40 ,to = 850 ,length.out = 1000 )
# curves.fqcd <- lab.fqcd(TG, argvals = delta)
# windows()
# xlab <- "Temperature (0C)"
# ylab <- "Mass (%)"
# main <- "TG curves obtained from calcium oxalate"
# p <- curves.fqcd$p
# col <- terrain.colors(p)
# plot(x = curves.fqcd, main, xlab, ylab,legend = FALSE,col = col)
# legend(45,70,c(paste("Lab",c(1:7))),
# col = col,lty = 1, lwd = c(rep(1,7),2), cex = 0.7)
# ## End(Not run)
Run the code above in your browser using DataLab