R/tau.r.R

Defines functions tau.r

tau.r <- function(wave) {
	wavemum <- wave * 1.e-3
	return(8.524e-3 / wavemum^4 + 9.63e-5 / wavemum^6 + 1.1e-7 / wavemum^8)
}
belasi01/Cops documentation built on Feb. 26, 2024, 6:52 a.m.