Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
classifydiag:basalts_cr_y_pearce [2016/03/07 23:09] admin |
classifydiag:basalts_cr_y_pearce [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ====== Y-Cr: Petrotectonic Environments, Pearce ====== | + | ====== Y-Cr: Petrotectonic Environments, Pearce, 1982 ====== |
Discrimination diagram for characterizing island-arc tholeiiters on the basis of Y-Cr covariations. | Discrimination diagram for characterizing island-arc tholeiiters on the basis of Y-Cr covariations. | ||
Строка 5: | Строка 5: | ||
=== Details === | === Details === | ||
- | <ref:pearce1982> | + | | Reference | <ref:pearce1982> | |
+ | | Data | bulk | | ||
+ | | Input | Cr_ppm, Y_ppm | | ||
+ | |||
+ | <use:classifydiag.basalts_cr_y_pearce> | ||
+ | <test:classifydiag.basalts_cr_y_pearce> | ||
<WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
Строка 22: | Строка 27: | ||
<Code> | <Code> | ||
- | require('ggplot'); | + | require('ggplot2'); |
classifydiag.basalts_cr_y_pearce <- function (wtp_data, ...) | classifydiag.basalts_cr_y_pearce <- function (wtp_data, ...) | ||
{ | { | ||
- | ds <- selectNames(wtp_data,c('Name','Cr_gpt','Y_gpt')) | + | ds <- selectNames(wtp_data,c('Name','Cr_ppm','Y_ppm')) |
pts <- data.frame(Name=ds$Name, | pts <- data.frame(Name=ds$Name, | ||
- | X = ds$Y_gpt, | + | X = ds$Y_ppm, |
- | Y = ds$Cr_gpt); | + | Y = ds$Cr_ppm); |
- | labels <- c("Y gpt", "Cr gpt"); | + | labels <- c("Y", "Cr"); |
ret <- c(); | ret <- c(); | ||
Строка 45: | Строка 50: | ||
</Code> | </Code> | ||
+ | |||
+ | {{tag>classifydiag wholerock}} |