Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:grt_12ox_norm [2020/02/19 14:23] 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); | ||
Строка 46: | Строка 46: | ||
ret <- data.frame(Name=wtp_data$Name,Si_pfu=ox_normed$Si_pfu); | ret <- data.frame(Name=wtp_data$Name,Si_pfu=ox_normed$Si_pfu); | ||
- | return(ret); | + | return (cbind(ret,normed_cations[,c('Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu','Fe_p2_pfu','Fe_p3_pfu')])); |
- | + | ||
- | #return (cbind(ret,normed_cations[,c('Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu','Fe_p2_pfu','Fe_p3_pfu')])); | + | |
} | } | ||
</Code> | </Code> |