Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:ph_kamzolkin_ivanov [2016/05/12 14:39] admin |
sensors:p:ph_kamzolkin_ivanov [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 5: | Строка 5: | ||
| === Подробнее === | === Подробнее === | ||
| - | ^ Информация о публикации | ожидает публикации | | + | ^ Статья | <ref:kamzolkin2015> | |
| - | ^ Ссылка | <ref:kamzolkin2015> | | + | |
| ^ Калибровка | На 460 образцах, как естественных, так и экспериментальных | | ^ Калибровка | На 460 образцах, как естественных, так и экспериментальных | | ||
| ^ Точность | ±2.5 ºС Kbar | | ^ Точность | ±2.5 ºС Kbar | | ||
| Строка 20: | Строка 19: | ||
| * <del>статья</del> | * <del>статья</del> | ||
| * <del>ссылка</del> | * <del>ссылка</del> | ||
| - | * карточка | + | * <del>карточка</del> |
| * подробное описание | * подробное описание | ||
| * <del>код</del> | * <del>код</del> | ||
| - | * тест | + | * <del>тест</del> |
| </WRAP> | </WRAP> | ||
| Строка 41: | Строка 40: | ||
| Phe$Pcalc <- ifelse(Phe$Si_pfu <= 3.25, Phe$Pcalc1, Phe$Pcalc2); | Phe$Pcalc <- ifelse(Phe$Si_pfu <= 3.25, Phe$Pcalc1, Phe$Pcalc2); | ||
| - | return (data.frame(Name=Phe$Name,T_seq=Temp,P_calc_phe_kamzolkin_ivanov=Phe$Pcalc)); | + | return (data.frame(Name=Phe$Name,T_seq=Temp,P_calc_phe_kamzolkin_ivanov_ASel=Phe$Pcalc, |
| + | P_calc_phe_kamzolkin_ivanov_1 = Phe$Pcalc1, | ||
| + | P_calc_phe_kamzolkin_ivanov_2 = Phe$Pcalc2)); | ||
| } | } | ||
| Строка 52: | Строка 53: | ||
| sensors.p.ph_kamzolkin_ivanov.test <- function() { | sensors.p.ph_kamzolkin_ivanov.test <- function() { | ||
| - | src <- data.frame(Name='test',Na2O_wtp=0.28, MgO_wtp=9.31, | + | src <- data.frame(Name='test', SiO2_wtp=46.92, TiO2_wtp=0.50, Al2O3_wtp=29.43, |
| - | Al2O3_wtp=19.56, SiO2_wtp=34.25, Cl_wtp = 0.07, K2O_wtp=9.43, CaO_wtp=0.02, | + | FeO_wtp=3.61, MnO_wtp=0.18, MgO_wtp=2.28, Na2O_wtp=0.64, K2O_wtp=9.33); |
| - | TiO2_wtp=2.3,Cr2O3_wtp=0.06,FeO_wtp =20.36); | + | |
| result <- sensors.p.ph_kamzolkin_ivanov (src, Temp=680); | result <- sensors.p.ph_kamzolkin_ivanov (src, Temp=680); | ||
| - | + | ||
| - | print(result); | + | |
| expect_equal(object = result$P_calc_phe_kamzolkin_ivanov, 12.9, tolerance = 0.1); | expect_equal(object = result$P_calc_phe_kamzolkin_ivanov, 12.9, tolerance = 0.1); | ||
| } | } | ||
| </Code> | </Code> | ||