Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:pl_nm [2017/03/07 00:17] admin [Source] |
recalc:pl_nm [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 20: | Строка 20: | ||
| * подробное описание | * подробное описание | ||
| * <del>код</del> | * <del>код</del> | ||
| - | * <del>тест</del> | + | * тест |
| </WRAP> | </WRAP> | ||
| Строка 86: | Строка 86: | ||
| recalc.pl_nm.test <- function () { | recalc.pl_nm.test <- function () { | ||
| - | test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(38.03,38.03), Al2O3_wtp=c(12.91,12.91), FeO_wtp=c(0,0), Fe2O3_wtp=c(0,30.32), CaO_wtp=c(17.75, 17.75)); | + | test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(38.03,38.03), Al2O3_wtp=c(12.91,12.91), FeO_wtp=c(5,0), Fe2O3_wtp=c(0,30.32), CaO_wtp=c(17.75, 17.75)); |
| result <- recalc.pl_nm(test); | result <- recalc.pl_nm(test); | ||
| print(result); | print(result); | ||
| - | expect_equal(object = result[1,]$Fe_p2_pfu, 0.273, tolerance = 0.005); | + | expect_equal(object = result[1,]$Fe_p2_pfu, 0.244, tolerance = 0.005); |
| expect_equal(object = result[2,]$Al_pfu, 0.8, tolerance = 0.005); | expect_equal(object = result[2,]$Al_pfu, 0.8, tolerance = 0.005); | ||
| } | } | ||