# NOT RUN {
## The function is currently defined as
function (Ta = 20)
{
Intercept <- 1.003731424
Slope1 <- 5.37909e-06
Slope2 <- 7.30124e-07
Slope3 <- (-1.34472e-09)
Slope4 <- 1.23027e-12
cp <- 1000*(Intercept + Slope1 * Ta + Slope2 * Ta^2 + Slope3 *
Ta^3 + Slope4 * Ta^4)
cp
}
# }
Run the code above in your browser using DataLab