Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
spdgrams:ree_oib [2016/03/11 11:09]
admin
spdgrams:ree_oib [2018/11/12 15:07] (текущий)
Строка 1: Строка 1:
-====== ​REE: OIB, Sun-McDonough,​ 1989 ======+====== OIB, Sun-McDonough,​ 1989 ======
  
  
 === Details === === Details ===
  
-<data plot+| Reference | <ref:sun1989| 
-Reference [wiki]:  +Data bulk | 
-Databulk +Input ppm 
-Inputppm + 
-</data>+<use:​spdgrams.ree_oib>​ 
 +<​test:​spdgrams.ree_oib>
  
 <WRAP center round todo 60%> <WRAP center round todo 60%>
-  * заголовок+  * <del>заголовок</​del>​
   * краткое описание   * краткое описание
-  * статья +  * <del>статья</​del>​ 
-  * ссылка+  * <del>ссылка</​del>​
   * <​del>​карточка</​del>​   * <​del>​карточка</​del>​
   * подробное описание   * подробное описание
-  * код+  * <del>код</​del>​
   * тест   * тест
 </​WRAP>​ </​WRAP>​
Строка 25: Строка 26:
  
 <Code linenums lang-r> <Code linenums lang-r>
-require('​ggplot');+require('​ggplot2');
  
 cmp <- read.csv("​constants_oceanic_basalts_compositions.csv",​ sep=";",​ stringsAsFactors=F);​ cmp <- read.csv("​constants_oceanic_basalts_compositions.csv",​ sep=";",​ stringsAsFactors=F);​
  
-spdgrams.ree_oib <- function(ppm_data)+spdgrams.ree_oib <- function(ppm_data, el_order = NULL) 
 +
 +ns <- el_order; 
 +  
 +if (is.null(el_order))
 { {
 ns <- c('​Cs',​ '​Rb',​ '​Ba',​ '​Th',​ '​U',​ '​Nb',​ '​Ta',​ '​La',​ '​Ce',​ '​Pb',​ '​Pr',​ ns <- c('​Cs',​ '​Rb',​ '​Ba',​ '​Th',​ '​U',​ '​Nb',​ '​Ta',​ '​La',​ '​Ce',​ '​Pb',​ '​Pr',​
         '​Sr',​ '​Nd',​ '​Zr',​ '​Hf',​ '​Sm',​ '​Eu',​ '​Gd',​ '​Tb',​ '​Dy',​ '​Y',​ '​Ho',​         '​Sr',​ '​Nd',​ '​Zr',​ '​Hf',​ '​Sm',​ '​Eu',​ '​Gd',​ '​Tb',​ '​Dy',​ '​Y',​ '​Ho',​
         '​Er',​ '​Tm',​ '​Yb',​ '​Lu'​);​         '​Er',​ '​Tm',​ '​Yb',​ '​Lu'​);​
 +}
  
 pmsc <- c(); pmsc <- c();
  
 for (n in ns) for (n in ns)
-  pmsc <- c(pmsc, subset(cmp, element == n)$N_MORB);+  pmsc <- c(pmsc, subset(cmp, element == n)$OIB);
  
 ds <- selectNames(ppm_data,​c(paste0(ns,'​_ppm'​)));​ ds <- selectNames(ppm_data,​c(paste0(ns,'​_ppm'​)));​
Строка 56: Строка 62:
 } }
 </​Code>​ </​Code>​
 +
 +{{tag>​spdgrams oceanic}}
  • spdgrams/ree_oib.1457694582.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)