Различия

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

--- spdgrams:ree_continental_curst_upper [2016/03/15 11:55]
admin
+++ spdgrams:ree_continental_curst_upper [2016/03/22 15:41]
admin
@@ Строка 1: / Строка 1: @@
-====== Continental Curst: Upper, Rudnik and Gao, 2004 (Cs-Rb-Ba...) ======
+====== Continental Curst: Upper, Rudnik and Gao, 2003 ======
@@ Строка 5: / Строка 5: @@
 <data plot>
-Reference [wiki]:
+Reference [wiki]: <ref:rudnick2003>
 Data: bulk
 Input: ppm
 </data>
+<use:spdgrams.ree_continental_curst_upper>
+<test:spdgrams.ree_continental_curst_upper>
 <WRAP center round todo 60%>
-  * заголовок
+  * <del>заголовок</del>
   * краткое описание
-  * статья
+  * <del>статья</del>
-  * ссылка
+  * <del>ссылка</del>
   * <del>карточка</del>
   * подробное описание
-  * код
+  * <del>код</del>
   * тест
 </WRAP>
@@ Строка 29: / Строка 31: @@
 cmp <- read.csv("constants_continental_curst_compositions.csv", sep=";", stringsAsFactors=F);
-spdgrams.ree_continental_curst_upper <- function(ppm_data)
+spdgrams.ree_continental_curst_upper <- 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',
         'Sr', 'Nd', 'Zr', 'Hf', 'Sm', 'Eu', 'Gd', 'Tb', 'Dy', 'Y', 'Ho',
         'Er', 'Tm', 'Yb', 'Lu');
+}
 pmsc <- c();