## Epoxy
data(Epoxy)
x=Epoxy
## TTS_10 function applied to Epoxy.
Q=TTS_10(x,reference.temperature=40, method=c("derived","WLF","Arrhenius"))
names(Q)
## Horizontal shifts vector of compliance versus time curves.
Q$aT
## Reference temperature
Q$ref.temp
PLOT <- PLOT.TTS(Q)
## Generic plots of: data, aT, bT, TTS.data and TTS.gam
PLOT$PLOT.data(main="PLOT: Data",xlab="Log_time",
ylab="Log_Compliance")
PLOT$PLOT.aT(main="PLOT: horizontal shift factors",
xlab="Temperature", ylab="aT")
PLOT$PLOT.bT(main="PLOT: vertical shift factors",
xlab="Temperature",ylab="bT")
PLOT$PLOT.TTS.data(xlab="Log_time",
ylab="Log_Compliance")
PLOT$PLOT.TTS.gam( xlab="Log_time",
ylab="Log_Compliance",
main = "Fitted gam, Bootstrap confidence intervals",
sub = "Reference temperature = 40 Celsius degrees")
Run the code above in your browser using DataLab