====== Nb-Zr-Y: Geodinamic Settings, Meschede ======

Basalts Geodinamic Settings Meschede.

=== Details ===

| Reference | |
| Data | bulk |
| Input | Nb_ppm, Zr_ppm, Y_ppm |

<use:classifydiag.basalts_meschede>
<test:classifydiag.basalts_meschede>

<WRAP center round todo 60%>
  * заголовок
  * краткое описание
  * статья
  * ссылка
  * <del>карточка</del>
  * подробное описание
  * код
  * тест
</WRAP>

=== Source ===

<Code linenums lang-r>
require('ggtern');

classifydiag.basalts_meschede <- function (wtp_data, ...)
{  
ds <- selectNames(wtp_data,c('Name','Nb_ppm','Zr_ppm','Y_ppm'));

pts <- data.frame(Name=ds$Name,
                  X = ds$Zr_ppm/4,
                  Y = ds$Nb_ppm*10,
                  Z = ds$Y_ppm);

labels <- c("Zr/4", "2*Nb", "Y");
 
ret <- c();
ret$type <- "ternogram";
ret$points <- pts;
ret$labels  <- labels;
 
return(ret);
}
</Code>

{{tag>classifydiag wholerock}}