Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:px_nm [2017/03/07 00:06] admin [Source] |
recalc:px_nm [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 87: | Строка 87: | ||
| recalc.px_nm.test <- function () { | recalc.px_nm.test <- function () { | ||
| test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(63.338,63.338), Al2O3_wtp=c(3.231,3.231), FeO_wtp=c(12.339,12.339), Fe2O3_wtp=c(1, 0),MgO_wtp=c(19.823, 19.823), CaO_wtp=c(1.269, 1.269)); | test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(63.338,63.338), Al2O3_wtp=c(3.231,3.231), FeO_wtp=c(12.339,12.339), Fe2O3_wtp=c(1, 0),MgO_wtp=c(19.823, 19.823), CaO_wtp=c(1.269, 1.269)); | ||
| - | result <- recalc.px_nm(test); | ||
| - | expect_equal(object = result[1,]$Fe_p2_pfu, 1.344, tolerance = 0.005); | + | result <- recalc.px_nm(test); |
| - | expect_equal(object = result[2,]$Si_pfu, 2.996, tolerance = 0.005); | + | expect_equal(object = result[1,]$Fe_p2_pfu, 0.354, tolerance = 0.005); |
| + | expect_equal(object = result[2,]$Si_pfu, 2.338, tolerance = 0.005); | ||
| } | } | ||
| </Code> | </Code> | ||