baseline.TAP {baseline} R Documentation

## TAP

### Description

An implementation of Roman Svoboda and Jirí Málek's algorithm for baseline identification in kinetic anlaysis of derivative kinetic data.

### Usage

```baseline.TAP(spectra, t, interval = 15, tol = 0.001)
```

### Arguments

 `spectra` Matrix with spectra in rows `t` Optional vector of spectrum abcissa `interval` Distance from spectrum end to starting points for the TAP (default = 15) `tol` Tolerance of difference between iterations (default = 0.001)

### Details

(i) A first approximation of the baseline equation is selected as the straight line between start and end of the curve. (ii) Based on the first approximation of the baseline equation, the phase change progress parameter is calculated. (iii) An updated equation of the baseline is calculated and the phase change progress parameter equation from step (ii). (iv) The baseline equation from step (iii) is compared (point by point) with the one from the previous iteration. If the convergence criterion is met (the difference between every baseline value corresponding to two successive iterations was less than 0.1%) the procedure is stopped and the final baseline equation is selected. If the convergence criterion is not fulfilled then a new iteration is carried out from step (ii) until convergence was achieved.

### Value

 `baseline ` Matrix of baselines corresponding to spectra `spectra` `corrected ` Matrix of baseline corrected spectra

### Author(s)

Kristian Hovde Liland

### References

Roman Svoboda and Jirí Málek: Importance of proper baseline identification for the subsequent kinetic analysis of derivative kinetic data, Journal of Thermal Analysis and Calorimetry.

### Examples

```# My T
myT <- 40:170

# My artifical curve
myAlpha <- c(seq(0.01, 0.02, length.out=40),
dnorm(seq(-3,3,length.out=51))/2+(0:50)/2000+0.02)
myAlpha <- c(myAlpha,
seq(myAlpha[90]-0.001, 0.01, length.out=40))
myAlpha <- myAlpha - min(myAlpha)