Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:px_macgreg [2016/04/29 09:48] admin [Source] |
recalc:px_macgreg [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 111: | Строка 111: | ||
| - | pCat_pfu$f_1 <- pCat_pfu$FeO_wtp<0; | + | pCat_pfu$f_1 <- ifelse(pCat_pfu$FeO_wtp<0,1,0); |
| - | pCat_pfu$f_2 <- pCat_pfu$FeO_wtp>=0 & pCat_pfu$Fe2O3_wtp<0; | + | pCat_pfu$f_2 <- ifelse(pCat_pfu$FeO_wtp>=0 & pCat_pfu$Fe2O3_wtp<0,1,0); |
| - | pCat_pfu$f_3 <- pCat_pfu$FeO_wtp>=0 & pCat_pfu$Fe2O3_wtp>=0; | + | pCat_pfu$f_3 <- ifelse(pCat_pfu$FeO_wtp>=0 & pCat_pfu$Fe2O3_wtp>=0,1,0); |
| - | + | ||
| - | return(pCat_pfu); | + | |
| pResEnd$Si_pfu <- pCat_pfu$f_1*pOx_AEi$SiO2_wtp+pCat_pfu$f_2*pCat_AEi$SiO2_wtp+pCat_pfu$f_3*pCat_pfu$SiO2_wtp; | pResEnd$Si_pfu <- pCat_pfu$f_1*pOx_AEi$SiO2_wtp+pCat_pfu$f_2*pCat_AEi$SiO2_wtp+pCat_pfu$f_3*pCat_pfu$SiO2_wtp; | ||