# NOT RUN {
## The function is currently defined as
function (Ta = 20)
{
Intercept <- 13.17380952
Slope <- 0.097457143
k <- (Intercept + Slope * Ta) * 1e-06
k
}
# Example calculation
Ta<-20
airviscosity(Ta)
# }
Run the code above in your browser using DataLab