====== Y-Cr: Petrotectonic Environments, Pearce, 1982  ======

Discrimination diagram for characterizing island-arc tholeiiters on the basis of Y-Cr covariations. 

=== Details ===

| 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%>
  * <del>заголовок</del>
  * <del>краткое описание</del>
  * <del>статья</del>
  * <del>ссылка</del>
  * карточка
  * подробное описание
  * код
  * тест
</WRAP>

=== Source ===

<Code>

require('ggplot2');
 
classifydiag.basalts_cr_y_pearce <- function (wtp_data, ...)
{  
ds <- selectNames(wtp_data,c('Name','Cr_ppm','Y_ppm'))
 
pts <- data.frame(Name=ds$Name,
                  X = ds$Y_ppm,
                  Y = ds$Cr_ppm);
 
labels <- c("Y", "Cr");
 
ret <- c();
ret$type <- "diagram";
ret$points <- pts;
ret$labels  <- labels;
ret$limits <- c(1,250,10,2000);
ret$scale <- c('log','log');
 
return(ret);
}

</Code>

{{tag>classifydiag wholerock}}