Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:amp_holland_blundy [2016/03/24 13:08] admin |
recalc:amp_holland_blundy [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 136: | Строка 136: | ||
| MgO_wtp=16.67, MnO_wtp=0.76, CaO_wtp=11.59, Na2O_wtp=1.36, K2O_wtp=0.90, F_wtp = 0.0, Cl_wtp = 0.0); | MgO_wtp=16.67, MnO_wtp=0.76, CaO_wtp=11.59, Na2O_wtp=1.36, K2O_wtp=0.90, F_wtp = 0.0, Cl_wtp = 0.0); | ||
| - | r <- recalc.amp_holland_blundy (src); | + | result <- recalc.amp_holland_blundy (src); |
| | | ||
| - | expect_equal(object = result$Na_A_pfu,0.290, tolerance = 0.005); | + | print(result); |
| - | expect_equal(object = result$Fe_p2_pfu,1.258, tolerance = 0.005); | + | |
| - | expect_equal(object = result$Ti_pfu,0.141, tolerance = 0.005); | + | expect_equal(object = result$Na_A_pfu,0.290, tolerance = 0.05); |
| + | expect_equal(object = result$Fe_p2_pfu,1.258, tolerance = 0.05); | ||
| + | expect_equal(object = result$Ti_pfu,0.141, tolerance = 0.05); | ||
| } | } | ||
| </Code> | </Code> | ||