R/opticalAirMass.R

Defines functions opticalAirMass

opticalAirMass <-
  function(z,lat,hr,i) {
    m <- exp(-z/8434.5)/ (cos(solarZenithAngle(lat,hr,i))+0.50572*(96.07995-solarZenithAngle(lat,hr,i)*180/pi)^-1.6364)
    m
  }

Try the sirad package in your browser

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

sirad documentation built on May 2, 2019, 4:41 p.m.