Различия
Здесь показаны различия между двумя версиями данной страницы.
|
classifydiag:harker_si_mn [2016/12/18 21:40] f0ma создано |
classifydiag:harker_si_mn [2018/11/12 15:07] |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== SiO2 - MnO : Harker ====== | ||
| - | Harker's diagramm SiO2 - MnO. Nomolized by oxides sum. | ||
| - | |||
| - | === Details === | ||
| - | |||
| - | | Reference | <ref:harker1909> | | ||
| - | | Data | bulk | | ||
| - | | Input | Na2O_wtp, MgO_wtp, Al2O3_wtp, SiO2_wtp, P2O5_wtp, K2O_wtp, CaO_wtp, TiO2_wtp, MnO_wtp, Fe2O3_wtp | | ||
| - | |||
| - | <use:classifydiag.harker_si_mn> | ||
| - | <test:classifydiag.harker_si_mn> | ||
| - | |||
| - | === Source === | ||
| - | |||
| - | <Code linenums lang-r> | ||
| - | classifydiag.harker_si_mn <- function (wtp_data, ...) | ||
| - | { | ||
| - | ds <- selectNames(wtp_data, c('Name','Na2O_wtp', 'MgO_wtp', 'Al2O3_wtp', | ||
| - | 'SiO2_wtp', 'P2O5_wtp', 'K2O_wtp', 'CaO_wtp', | ||
| - | 'TiO2_wtp', 'MnO_wtp', 'Fe2O3_wtp')); | ||
| - | |||
| - | norm_sum <- rowSums(ds[,c('Na2O_wtp', 'MgO_wtp', 'Al2O3_wtp', | ||
| - | 'SiO2_wtp', 'P2O5_wtp', 'K2O_wtp', 'CaO_wtp', | ||
| - | 'TiO2_wtp', 'MnO_wtp', 'Fe2O3_wtp')]); | ||
| - | |||
| - | pts <- data.frame(Name = ds$Name, | ||
| - | X = ds$SiO2_wtp*100/norm_sum, | ||
| - | Y = ds$MnO_wtp*100/norm_sum); | ||
| - | |||
| - | labels <- c("SiO2", "MnO"); | ||
| - | |||
| - | ret <- c(); | ||
| - | ret$type <- "diagram"; | ||
| - | ret$points <- pts; | ||
| - | ret$labels <- labels; | ||
| - | |||
| - | return(ret); | ||
| - | } | ||
| - | |||
| - | </Code> | ||