Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:pl_nm [2017/03/07 00:15] admin [Source] |
recalc:pl_nm [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 20: | Строка 20: | ||
* подробное описание | * подробное описание | ||
* <del>код</del> | * <del>код</del> | ||
- | * <del>тест</del> | + | * тест |
</WRAP> | </WRAP> | ||
Строка 28: | Строка 28: | ||
#Names preparation | #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'); | 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'); | 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'); | ||
Строка 87: | Строка 86: | ||
recalc.pl_nm.test <- function () { | recalc.pl_nm.test <- function () { | ||
- | test <- data.frame(Name=c("Sp1","Sp2"), SiO2_wtp=c(38.03,38.03), Al2O3_wtp=c(12.91,12.91), FeO_wtp=c(0,0), Fe2O3_wtp=c(30.32,30.32), CaO_wtp=c(17.75, 17.75)); | + | 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.pl_nm(test); | result <- recalc.pl_nm(test); | ||
print(result); | print(result); | ||
- | expect_equal(object = result[1,]$Fe_p2_pfu, 0.354, tolerance = 0.005); | + | expect_equal(object = result[1,]$Fe_p2_pfu, 0.244, tolerance = 0.005); |
- | expect_equal(object = result[2,]$Si_pfu, 2.338, tolerance = 0.005); | + | expect_equal(object = result[2,]$Al_pfu, 0.8, tolerance = 0.005); |
} | } | ||
</Code> | </Code> |