Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:grt_12ox_norm [2020/02/19 14:29] f0ma |
recalc:grt_12ox_norm [2020/02/19 14:29] (текущий) f0ma |
||
|---|---|---|---|
| Строка 32: | Строка 32: | ||
| 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); | ||
| Строка 46: | Строка 44: | ||
| normed_cations$Fe_p2_pfu <- 3-rowSums(normed_cations[,c('Mn_pfu', 'Mg_pfu', 'Ca_pfu')]); | normed_cations$Fe_p2_pfu <- 3-rowSums(normed_cations[,c('Mn_pfu', 'Mg_pfu', 'Ca_pfu')]); | ||
| - | #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(data.frame(Name=wtp_data$Name)); | + | |
| - | #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> | ||