Различия

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

--- recalc:pl_nm [2017/03/07 00:11]
admin создано
+++ recalc:pl_nm [2018/11/12 15:08] (текущий)
@@ Строка 20: / Строка 20: @@
   * подробное описание
   * <del>код</del>
-  * <del>тест</del>
+  * тест
 </WRAP>
@@ Строка 28: / Строка 28: @@
     #Names preparation
-    ox_tnames <- c('SiO2',    'TiO2',     'Al2O3',     'Cr2O3',     'Fe2O3',     'FeO',       'MnO',     'MgO'    ,'CaO', 'BaO', 'Na2O', 'K2O
+    ox_tnames <- c('SiO2',    'TiO2',     'Al2O3',     'Cr2O3',     'Fe2O3',     'FeO',       'MnO',     'MgO'    ,'CaO', 'BaO', 'Na2O', 'K2O');
-');
     ox_names <-  c('SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'Cr2O3_wtp', 'Fe2O3_wtp', 'FeO_wtp',   'MnO_wtp', 'MgO_wtp','CaO_wtp', 'BaO_wtp','Na2O_wtp','K2O_wtp');
     pfu_names <- c('Si_pfu',  'Ti_pfu',   'Al_pfu',    'Cr_pfu',    'Fe_p3_pfu', 'Fe_p2_pfu', 'Mn_pfu',  'Mg_pfu' ,'Ca_pfu','Ba_pfu', 'Na_pfu', 'K_pfu');
@@ Строка 86: / Строка 85: @@
 }
-recalc.px_nm.test <- function () {
+recalc.pl_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(38.03,38.03), Al2O3_wtp=c(12.91,12.91), FeO_wtp=c(5,0), Fe2O3_wtp=c(0,30.32), CaO_wtp=c(17.75, 17.75));
-    result <- recalc.px_nm(test);
+    result <- recalc.pl_nm(test);
-    expect_equal(object = result[1,]$Fe_p2_pfu, 0.354, tolerance = 0.005);
+    print(result);
-    expect_equal(object = result[2,]$Si_pfu, 2.338, tolerance = 0.005);
+    expect_equal(object = result[1,]$Fe_p2_pfu, 0.244, tolerance = 0.005);
+    expect_equal(object = result[2,]$Al_pfu, 0.8, tolerance = 0.005);
 }
 </Code>