Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
spdgrams:ree_primitive_mantle_wm_sun [2016/12/19 00:34] f0ma создано |
spdgrams:ree_primitive_mantle_wm_sun [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 31: | Строка 31: | ||
| ocean <- read.csv("constants_oceanic_basalts_compositions.csv", sep=";", stringsAsFactors=F); | ocean <- read.csv("constants_oceanic_basalts_compositions.csv", sep=";", stringsAsFactors=F); | ||
| - | spdgrams.ree_primitive_mantle_wm_taylor <- function(ppm_data, el_order = NULL) | + | spdgrams.ree_primitive_mantle_wm_sun <- function(ppm_data, el_order = NULL) |
| { | { | ||
| Строка 85: | Строка 85: | ||
| ret <- c(); | ret <- c(); | ||
| - | values <- cbind(c(ppm_data$Name, "N-MORB", "E-MORB", "OBI"), rowApply(`/`,ds,pmsc)); | + | values <- cbind(c(ppm_data$Name, "N-MORB", "E-MORB", "OIB"), rowApply(`/`,ds,pmsc)); |
| names(values)[1] <- 'Name'; | names(values)[1] <- 'Name'; | ||
| Строка 92: | Строка 92: | ||
| ret$values <- values; | ret$values <- values; | ||
| ret$grades <- ns; | ret$grades <- ns; | ||
| - | ret$labels <- c('REE', 'Sample/Primetive Mantle'); | + | ret$labels <- c('REE', 'Sample/Primitive Mantle'); |
| return(ret); | return(ret); | ||