R/airviscosity.R

Defines functions airviscosity

Documented in airviscosity

#' @export
#' 
airviscosity<-function(Ta=20){
  # Kinematic viscosity of air, as a function of temperature
  # Units: m2/s
  # http://www.engineeringtoolbox.com/air-properties-d_156.html
  # Regression for 0 to 100oC range:
  Intercept<-13.17380952
  Slope<-0.097457143
  k<-(Intercept+Slope*Ta)*1e-6 #  multiply by 1e-6 to get into m2/s units
  k
  }

Try the Thermimage package in your browser

Any scripts or data that you put into this service are public.

Thermimage documentation built on Nov. 30, 2017, 9:01 a.m.