Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия Следующая версия Следующая версия справа и слева | ||
recalc:cpx_4cat_norm [2015/09/08 16:47] admin |
recalc:cpx_4cat_norm [2015/09/09 07:54] admin |
||
---|---|---|---|
Строка 19: | Строка 19: | ||
pfu_group <-c('Si_pfu','Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu', 'Na_pfu'); | pfu_group <-c('Si_pfu','Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu', 'Na_pfu'); | ||
- | ox_calc <- rowSums(rowApply('*',cat_normed[,pfu_group],c(2,2,1.5,1,1,1,1,0.5))); | + | anion_summ <- rowSums(rowApply('*',cat_normed[,pfu_group],c(2,2,1.5,1,1,1,1,0.5))); |
- | cat_normed$Fe_p3_pfu <- (6-ox_calc)*2; | + | |
+ | cat_normed$Fe_p3_pfu <- (6-anion_summ)*2; | ||
cat_normed$Fe_p2_pfu <- cat_normed$Fe_pfu - cat_normed$Fe_p3_pfu; | cat_normed$Fe_p2_pfu <- cat_normed$Fe_pfu - cat_normed$Fe_p3_pfu; | ||