Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия Следующая версия Следующая версия справа и слева | ||
recalc:ms_tpf_realc0 [2016/05/12 13:02] admin [Source] |
recalc:ms_tpf_realc0 [2016/05/12 13:56] admin [Source] |
||
---|---|---|---|
Строка 29: | Строка 29: | ||
recalc.ms_tpf_realc0 <- function (wtp_data, ...) | recalc.ms_tpf_realc0 <- function (wtp_data, ...) | ||
{ | { | ||
- | rn <- tpf.rename(wtp_data); | + | return(tpf.omesod_v(wtp_data,11,4)); |
- | clk <- tpf.omesod(rn,11,4); | + | |
- | return(tpf.unrename(clk,wtp_data$Name)); | + | |
} | } | ||
Строка 38: | Строка 36: | ||
FeO_wtp=c(3.610, 4.220), MnO_wtp=c(0.180, 0.010), MgO_wtp=c(2.280, 1.490), CaO_wtp=c(0.0, 0.270), Na2O_wtp=c(0.640, 0.690), K2O_wtp=c(9.330,9.470)); | FeO_wtp=c(3.610, 4.220), MnO_wtp=c(0.180, 0.010), MgO_wtp=c(2.280, 1.490), CaO_wtp=c(0.0, 0.270), Na2O_wtp=c(0.640, 0.690), K2O_wtp=c(9.330,9.470)); | ||
- | result <- recalc.ms_tpf_realc0 (src[1,]); | + | result <- recalc.ms_tpf_realc0 (src[2,]); |
| | ||
result <- recalc.ms_tpf_realc0 (src); | result <- recalc.ms_tpf_realc0 (src); | ||
- | print( result); | ||
expect_equal(object = result[1,]$Si_pfu, 3.231, tolerance = 0.001); | expect_equal(object = result[1,]$Si_pfu, 3.231, tolerance = 0.001); | ||
expect_equal(object = result[2,]$Si_pfu, 3.142, tolerance = 0.001); | expect_equal(object = result[2,]$Si_pfu, 3.142, tolerance = 0.001); |