FRI {takos}

Title Friedman

Description

performs analysis of the thermograms using Friedman method to calculate the activation energy (Ea)

Usage

FRI(mat, id = "rate", degree = seq(0.2, 0.8, by = 0.05))

Arguments

mat

matrix of the all the thermograms checked using the functiom mat.check

id

variable choosen for subsetting mat (default = "rate")

degree

selected degrees of cristallinity for performing the analysis

Value

models "mod", datable "xy" for plot, "Ea" list of value, datatable "DT" built with the values of mat according to the specified degree

References

H.L. Friedman, Kinetics of thermal degradation of char-forming plastics from thermogravimetry, Appl. Phen. Plastic J. Polym. Sci. Part C: Polym. Symp. 6 (1964)

Examples

 
require(data.table)
require(MASS)
rates=c(0.5,1,2,5,10,20,50)
a<-lapply(rates, function(x) JMA(A=exp(35),Ea=120000,T0=0,T.end=300,q=x,npoints=5000,n=2))
a<-lapply(seq(1,length(a)), function(x) data.table(a[[x]]$time.s,a[[x]]$T.C,
a[[x]]$dadT, rates[[x]]))
lapply(seq(1,length(a)), function(x) setnames(a[[x]],
c("time.seconds","temperature.s","heat.flow","rates") ) )
ar<-testMat(a)
fri<-FRI(ar)