Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
recalc:sp_nm [2017/03/06 22:11]
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);​
-    ​expect_equal(object = result$Fe_p2_pfu[0,], 1.502, tolerance = 0.001); + 
-    expect_equal(object = result$Ti_pfu[1,], 0.975, tolerance = 0.001);+    ​expect_equal(object = result[1,]$Fe_p2_pfu, 1.502, tolerance = 0.001); 
 +    expect_equal(object = result[2,]$Ti_pfu, 0.975, tolerance = 0.001);
 } }
 </​Code>​ </​Code>​
  • recalc/sp_nm.1488838311.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)