Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
sensors:t:opx_cpx_brey_kohler_1990_b [2017/05/25 09:25] admin |
sensors:t:opx_cpx_brey_kohler_1990_b [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 20: | Строка 20: | ||
<WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
* <del>заголовок</del> | * <del>заголовок</del> | ||
- | * краткое описание | + | * <del>краткое описание</del> |
- | * статья | + | * <del>статья</del> |
- | * ссылка | + | * <del>ссылка</del> |
* карточка | * карточка | ||
* подробное описание | * подробное описание | ||
Строка 34: | Строка 34: | ||
sensors.t.opx_cpx_brey_kohler_1990_b <- function(Opx, Cpx, P, usePFU = FALSE, ...){ | sensors.t.opx_cpx_brey_kohler_1990_b <- function(Opx, Cpx, P, usePFU = FALSE, ...){ | ||
+ | |||
+ | row_names = paste0(Opx$Name,"-",Cpx$Name); | ||
+ | |||
if(!usePFU){ | if(!usePFU){ | ||
Opx <- tpf.recalc_minaral("OPX",Opx); | Opx <- tpf.recalc_minaral("OPX",Opx); | ||
Строка 41: | Строка 44: | ||
T <- (6425 + 26.4 * P) / ( - log(CAO) + 1.843) - 273.15; | T <- (6425 + 26.4 * P) / ( - log(CAO) + 1.843) - 273.15; | ||
- | return(data.frame(Name=paste0(Opx$Name),P=P,T_calc=T)); | + | return(data.frame(Name=row_names,P=P,T_calc=T)); |
} | } | ||