R/tau.oz.R

Defines functions tau.oz

tau.oz <- function(wave, du = 350) {
	return(du / 1000 * approx(oz.k$wave,oz.k$oz,wave, rule = 2)$y)
}
belasi01/Cops documentation built on Feb. 26, 2024, 6:52 a.m.