Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
classifydiag:th_hf_nb_wood [2016/03/07 00:12] admin |
classifydiag:th_hf_nb_wood [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 3: | Строка 3: | ||
==== Details ==== | ==== Details ==== | ||
- | <data plot> | + | | Reference | | |
- | Reference [wiki]: | + | | Data | bulk | |
- | Data: bulk | + | | Input | Th_ppm, Hf_ppm, Nb_ppm | |
- | Input: Th_gpt, Hf_gpt, Nb_gpt | + | |
- | </data> | + | <use:classifydiag.th_hf_nb_wood> |
+ | <test:classifydiag.th_hf_nb_wood> | ||
<WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
Строка 27: | Строка 28: | ||
classifydiag.th_hf_nb_wood <- function (wtp_data, ...) | classifydiag.th_hf_nb_wood <- function (wtp_data, ...) | ||
{ | { | ||
- | ds <- selectNames(wtp_data,c('Name','Th_gpt', 'Hf_gpt', 'Nb_gpt')) | + | ds <- selectNames(wtp_data,c('Name','Th_ppm', 'Hf_ppm', 'Nb_ppm')) |
pts <- data.frame(Name=ds$Name, | pts <- data.frame(Name=ds$Name, | ||
- | X = ds$Th_gpt, | + | X = ds$Th_ppm, |
- | Y = ds$Hf_gpt/3, | + | Y = ds$Hf_ppm/3, |
- | Z = ds$Nb_gpt/16); | + | Z = ds$Nb_ppm/16); |
- | labels <- c("Th_gpt", "Hf_gpt/3", "Nb_gpt/16"); | + | labels <- c("Th", "Hf/3", "Nb/16"); |
lines <- data.frame(X1 = c(0.15, 0.15, 0.24, 0.56, 0.15, 0.35, 0.08, 0.03, 0.35, 0.54, 0.58, 0.27, 0.13, 0.05, 0.57, 0.63, 0.40, 0.32), | lines <- data.frame(X1 = c(0.15, 0.15, 0.24, 0.56, 0.15, 0.35, 0.08, 0.03, 0.35, 0.54, 0.58, 0.27, 0.13, 0.05, 0.57, 0.63, 0.40, 0.32), | ||
Строка 46: | Строка 47: | ||
X=c(0.17, 0.24, 0.43, 0.60), | X=c(0.17, 0.24, 0.43, 0.60), | ||
Y=c(0.65, 0.43, 0.18, 0.28), | Y=c(0.65, 0.43, 0.18, 0.28), | ||
- | Z=c(0.18, 0.33, 0.39, 0.12)); | + | Z=c(0.21, 0.33, 0.39, 0.12)); |
ret <- c(); | ret <- c(); | ||
ret$type <- "ternogram"; | ret$type <- "ternogram"; | ||
Строка 57: | Строка 58: | ||
} | } | ||
</Code> | </Code> | ||
+ | {{tag>classifydiag wholerock}} |