====== Grt: Nakamura, 2009 ======

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

=== Details ===

^ Reference | <ref:nakamura2009> |
^ Input | SiO2_wtp, TiO2_wtp, Al2O3_wtp, Cr2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp |
^ Output | pfu |
<use:recalc.grt_8cat_norm>
<test:recalc.grt_8cat_norm>

<WRAP center round todo 60%>
  * заголовок
  * краткое описание
  * <del>статья</del>
  * <del>ссылка</del>
  * <del>карточка</del>
  * подробное описание
  * <del>код</del>
  * тест
</WRAP>

=== Source ===

<Code linenums lang-r>
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);
}
</Code>