# \donttest{
# Constants of steels as example:
dt_TC <- TCorrect(TPMdata, 2, 3, 0.9, 7.8, 502.416, seq(0, 0.9, 0.005))
# Data without adiabatic heating correction
SSplots(TPMdata, 2, mfrow=c(2, 2))
# Data with adiabatic heating correction
SSplots(dt_TC, 2, mfrow=c(2, 2))
# }
Run the code above in your browser using DataLab