Править страницу Ссылки сюда Это старая версия документа! Continental Curst: Upper, Rudnik and Gao, 2003 Details <data plot> Reference [wiki]: Rudnick, R. L., Gao, S. X. Composition of the continental crust, 2003 [ref] Data: bulk Input: ppm </data> заголовок краткое описание статья ссылка карточка подробное описание код тест Source require('ggplot'); cmp <- read.csv("constants_continental_curst_compositions.csv", sep=";", stringsAsFactors=F); 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(); for (n in ns) pmsc <- c(pmsc, subset(cmp, component == n)$upper); 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/Continental curst, Upper'); return(ret); } spdgrams/ree_continental_curst_upper.1458045866.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти