Grt: Nakamura, 2009

Метод пересчета для граната на 8 катионов. В расчет берутся оксиды: SiO2, TiO2, Al2O3, Cr2O3, FeO, MnO, MgO, CaO, Na2O, K2O.

Использовать Проверить

source('recalc_common_cation.r')

recalc.grt_8cat_norm <- function (wtp_data, ...)
{

ox_group <-c('Name','SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'Cr2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp', 'Na2O_wtp', 'K2O_wtp');

wtp_group <- selectNames(wtp_data,ox_group);

cat_normed <- recalc.common_cation (wtp_group, 8);

return (cat_normed);
}