Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:sp_nm [2017/03/06 22:13] admin [Source] |
recalc:sp_nm [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
====== Sp: Normalization.Minerals ====== | ====== Sp: Normalization.Minerals ====== | ||
- | Calculation form Excel table. To 3 cations. | + | Calculation form Excel table. To 3 cations with optional Fe_p3_pfu calculation from charge balance. |
=== Details === | === Details === | ||
Строка 18: | Строка 18: | ||
* ссылка | * ссылка | ||
* <del>карточка</del> | * <del>карточка</del> | ||
- | * <del>подробное описание</del> | + | * подробное описание |
- | * код | + | * <del>код</del> |
- | * тест | + | * <del>тест</del> |
</WRAP> | </WRAP> | ||
Строка 88: | Строка 88: | ||
test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(0.1,0.1), TiO2_wtp=c(36.14, 36.14), Al2O3_wtp=c(0.98,0.98), FeO_wtp=c(49.38, 49.38), Fe2O3_wtp=c(0, 1), MnO_wtp=c(0.34, 0.34), MgO_wtp=c(8.35, 8.35)); | test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(0.1,0.1), TiO2_wtp=c(36.14, 36.14), Al2O3_wtp=c(0.98,0.98), FeO_wtp=c(49.38, 49.38), Fe2O3_wtp=c(0, 1), MnO_wtp=c(0.34, 0.34), MgO_wtp=c(8.35, 8.35)); | ||
result <- recalc.sp_nm(test); | result <- recalc.sp_nm(test); | ||
- | print(result$Fe_p2_pfu); | + | |
- | print(result$Ti_pfu); | + | expect_equal(object = result[1,]$Fe_p2_pfu, 1.502, tolerance = 0.001); |
- | expect_equal(object = result$Fe_p2_pfu[0], 1.502, tolerance = 0.001); | + | expect_equal(object = result[2,]$Ti_pfu, 0.975, tolerance = 0.001); |
- | expect_equal(object = result$Ti_pfu[1], 0.975, tolerance = 0.001); | + | |
} | } | ||
</Code> | </Code> |