Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
recalc:px_nm [2017/03/07 00:04] admin создано |
recalc:px_nm [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 86: | Строка 86: | ||
| recalc.px_nm.test <- function () { | recalc.px_nm.test <- function () { | ||
| - | test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(37.39,37.39), TiO2_wtp=c(0.28, 0.28), Al2O3_wtp=c(10.08,10.08), FeO_wtp=c(19.35, 19.35), Fe2O3_wtp=c(1, 0), MnO_wtp=c(0.14, 0.14), MgO_wtp=c(1.55, 1.55), CaO_wtp=c(29.63, 29.63)); | + | 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> | ||