Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия Последняя версия Следующая версия справа и слева | ||
|
recalc:grt_12ox_norm [2020/02/19 14:28] f0ma |
recalc:grt_12ox_norm [2020/02/19 14:29] f0ma |
||
|---|---|---|---|
| Строка 29: | Строка 29: | ||
| recalc.grt_12ox_norm <- function (wtp_data, ...) | recalc.grt_12ox_norm <- function (wtp_data, ...) | ||
| { | { | ||
| - | ox_group <-c('SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp'); | + | ox_group <-c('Name', 'SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp'); |
| wtp_group <- selectNames(wtp_data,ox_group); | wtp_group <- selectNames(wtp_data,ox_group); | ||
| - | |||
| - | return(wtp_group); | ||
| ox_normed <- recalc.common_oxygen (wtp_group, 12); | ox_normed <- recalc.common_oxygen (wtp_group, 12); | ||