Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:ms_tpf_realc0 [2016/05/12 13:40] admin [Source] |
recalc:ms_tpf_realc0 [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 20: | Строка 20: | ||
* подробное описание | * подробное описание | ||
* <del>код</del> | * <del>код</del> | ||
- | * тест | + | * <del>тест</del> |
</WRAP> | </WRAP> | ||
Строка 29: | Строка 29: | ||
recalc.ms_tpf_realc0 <- function (wtp_data, ...) | recalc.ms_tpf_realc0 <- function (wtp_data, ...) | ||
{ | { | ||
- | rn <- tpf.rename(wtp_data); | + | return(tpf.recalc_minaral("MS",wtp_data)); |
- | clkm <- NULL; | + | |
- | for(i in 1:nrow(rn)) | + | |
- | { | + | |
- | clk <- tpf.omesod(rn[i,],11,4); | + | |
- | if (i == 1) { clkm = clk; } | + | |
- | else { clkm = rbind(clk); } | + | |
- | } | + | |
- | return(tpf.unrename(clkm, wtp_data$Name)); | + | |
} | } | ||
Строка 48: | Строка 40: | ||
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); |