Различия

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

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

spdgrams:ree_oib [2016/03/22 15:45]
admin
spdgrams:ree_oib [2018/11/12 15:07]
Строка 1: Строка 1:
-====== OIB, Sun-McDonough,​ 1989 ====== 
  
- 
-=== Details === 
- 
-<data plot> 
-Reference [wiki]: <​ref:​sun1989>​ 
-Data: bulk 
-Input: ppm 
-</​data>​ 
-<​use:​spdgrams.ree_oib>​ 
-<​test:​spdgrams.ree_oib>​ 
- 
-<WRAP center round todo 60%> 
-  * <​del>​заголовок</​del>​ 
-  * краткое описание 
-  * <​del>​статья</​del>​ 
-  * <​del>​ссылка</​del>​ 
-  * <​del>​карточка</​del>​ 
-  * подробное описание 
-  * <​del>​код</​del>​ 
-  * тест 
-</​WRAP>​ 
- 
- 
-=== Source === 
- 
-<Code linenums lang-r> 
-require('​ggplot2'​);​ 
- 
-cmp <- read.csv("​constants_oceanic_basalts_compositions.csv",​ sep=";",​ stringsAsFactors=F);​ 
- 
-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',​ 
-        '​Sr',​ '​Nd',​ '​Zr',​ '​Hf',​ '​Sm',​ '​Eu',​ '​Gd',​ '​Tb',​ '​Dy',​ '​Y',​ '​Ho',​ 
-        '​Er',​ '​Tm',​ '​Yb',​ '​Lu'​);​ 
-} 
- 
-pmsc <- c(); 
- 
-for (n in ns) 
-  pmsc <- c(pmsc, subset(cmp, element == n)$N_MORB); 
- 
-ds <- selectNames(ppm_data,​c(paste0(ns,'​_ppm'​)));​ 
- 
-names(ds) <- ns; 
- 
-ret <- c(); 
- 
-values <- cbind(ppm_data$Name,​ rowApply(`/​`,​ds,​pmsc));​ 
-names(values)[1] <- '​Name';​ 
- 
-ret$values <- values; 
-ret$grades <- ns; 
-ret$labels <- c('​REE',​ '​Sample/​OIB'​);​ 
- 
-return(ret);​ 
-} 
-</​Code>​ 
  • spdgrams/ree_oib.txt
  • Последние изменения: 2018/11/12 15:07
  • (внешнее изменение)