Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
interpmin:px_macgreg [2016/04/29 09:56] admin |
interpmin:px_macgreg [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 80: | Строка 80: | ||
return(res); | return(res); | ||
+ | } | ||
+ | |||
+ | interpmin.px_macgreg.test <- function () | ||
+ | { | ||
+ | src <- data.frame(Name='test', SiO2_wtp=49.210, TiO2_wtp=0.19, Al2O3_wtp=11.180, Cr2O3_wtp=0.23, | ||
+ | FeO_wtp=6.28, MnO_wtp=0.00, MgO_wtp=19.160, CaO_wtp=16.16, Na2O_wtp=0.00, K2O_wtp=0.00); | ||
+ | |||
+ | result <- interpmin.px_macgreg(src); | ||
+ | | ||
+ | expect_equal(object = result$X_Jd, 0.0, tolerance = 0.05); | ||
+ | expect_equal(object = result$X_DiHd, 0.342, tolerance = 0.05); | ||
+ | expect_equal(object = result$X_Opx, 0.392, tolerance = 0.05); | ||
+ | |||
} | } | ||
</Code> | </Code> |