Править страницу Ссылки сюда Это старая версия документа! REE: Continental Curst: Upper, Rudnik and Gao, 2004 Details <data plot> Reference [wiki]: 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) { 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.1457697919.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти