Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
classifydiag:basalts_meschede [2016/03/10 10:50] admin |
classifydiag:basalts_meschede [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 5: | Строка 5: | ||
| === Details === | === Details === | ||
| - | <data plot> | + | | Reference | | |
| - | Reference [wiki]: | + | | Data | bulk | |
| - | Data: bulk | + | | Input | Nb_ppm, Zr_ppm, Y_ppm | |
| - | Input: Nb_gpt, Zr_gpt, Y_gpt | + | |
| - | </data> | + | <use:classifydiag.basalts_meschede> |
| + | <test:classifydiag.basalts_meschede> | ||
| <WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
| Строка 29: | Строка 30: | ||
| classifydiag.basalts_meschede <- function (wtp_data, ...) | classifydiag.basalts_meschede <- function (wtp_data, ...) | ||
| { | { | ||
| - | ds <- selectNames(wtp_data,c('Name','Nb_gpt','Zr_gpt','Y_gpt')); | + | ds <- selectNames(wtp_data,c('Name','Nb_ppm','Zr_ppm','Y_ppm')); |
| pts <- data.frame(Name=ds$Name, | pts <- data.frame(Name=ds$Name, | ||
| - | X = ds$Zr_gpt/4, | + | X = ds$Zr_ppm/4, |
| - | Y = ds$Nb_gpt*10, | + | Y = ds$Nb_ppm*10, |
| - | Z = ds$Y_gpt); | + | Z = ds$Y_ppm); |
| - | labels <- c("Zr_gpt/4", "2*Nb_gpt", "Y_gpt"); | + | labels <- c("Zr/4", "2*Nb", "Y"); |
| ret <- c(); | ret <- c(); | ||
| Строка 46: | Строка 47: | ||
| } | } | ||
| </Code> | </Code> | ||
| + | |||
| + | {{tag>classifydiag wholerock}} | ||