Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:t:cpx_opx_kretz_1982_a [2017/05/24 20:55] admin |
sensors:t:cpx_opx_kretz_1982_a [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 44: | Строка 44: | ||
| TL <- (1000 / (0.054 + 0.608 * X - 0.304 * log(1 - 2 * Y))) - 273.15; | TL <- (1000 / (0.054 + 0.608 * X - 0.304 * log(1 - 2 * Y))) - 273.15; | ||
| | | ||
| - | T <- ifelse(TH<1080.0 && TL>1080.0,NA, | + | Ts <- data.frame(TH = TH, TL = TL, T = rep(NA, nrow(Cpx))); |
| - | ifelse(TH>1080.0,TH, | + | Ts$T <- ifelse(Ts$TH>1080.0,Ts$TH,ifelse(Ts$TL<1080.0,TL,NA)); |
| - | ifelse(TL<1080.0,TL,NA))); | + | |
| - | | + | return(data.frame(Name=row_names,T_calc=Ts$T)); |
| - | return(data.frame(Name=row_names,T_calc=T)); | + | |
| } | } | ||
| Строка 63: | Строка 62: | ||
| </Code> | </Code> | ||
| - | {{tag> tpf Cpx AP_igroup}} | + | {{tag> tpf Cpx AP_igroup fixed}} |