Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:ol_macgreg [2016/04/29 14:23] admin |
recalc:ol_macgreg [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 45: | Строка 45: | ||
| recalc.ol_macgreg.test <- function () { | recalc.ol_macgreg.test <- function () { | ||
| + | src <- data.frame(Name='test', SiO2_wtp=41.83, Al2O3_wtp=0.01, Cr2O3_wtp=0.01, | ||
| + | FeO_wtp=9.86, MgO_wtp=45.63, CaO_wtp=0.08); | ||
| + | |||
| + | result <- recalc.ol_macgreg(src); | ||
| + | | ||
| + | expect_equal(object = result$Si_pfu, 1.0171, tolerance = 0.05); | ||
| + | expect_equal(object = result$Fe_pfu, 0.2005, tolerance = 0.05); | ||
| + | expect_equal(object = result$Mg_pfu, 1.7624, tolerance = 0.05); | ||
| } | } | ||
| </Code> | </Code> | ||