Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
spdgrams:ree_pm_sun_wm_taylor [2016/12/15 20:13] f0ma создано |
spdgrams:ree_pm_sun_wm_taylor [2025/10/25 12:08] (текущий) f0ma |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Primitive mantle, Sun McDonough, 1989 + Mantle Taylor, McLennan, 1985 ====== | + | ====== Primitive mantle, Sun McDonough, 1989 + Crust, Taylor, McLennan, 1985 ====== |
| - | Mantle + Curst (3 ex) | + | Mantle + Upper Curst, Lower Curst, OIB |
| === Details === | === Details === | ||
| Строка 48: | Строка 48: | ||
| lcrust <- c(); | lcrust <- c(); | ||
| - | mcrust <- c(); | ||
| ucrust <- c(); | ucrust <- c(); | ||
| + | oib <- c(); | ||
| for (n in ns) { | for (n in ns) { | ||
| Строка 55: | Строка 55: | ||
| { | { | ||
| lcrust <- c(lcrust, subset(crust, Element == n)$lower_crust); | lcrust <- c(lcrust, subset(crust, Element == n)$lower_crust); | ||
| - | mcrust <- c(mcrust, subset(crust, Element == n)$middle_crust); | ||
| ucrust <- c(ucrust, subset(crust, Element == n)$upper_crust); | ucrust <- c(ucrust, subset(crust, Element == n)$upper_crust); | ||
| } | } | ||
| Строка 61: | Строка 60: | ||
| { | { | ||
| lcrust <- c(lcrust,0.0); | lcrust <- c(lcrust,0.0); | ||
| - | mcrust <- c(mcrust,0.0); | ||
| ucrust <- c(ucrust,0.0); | ucrust <- c(ucrust,0.0); | ||
| } | } | ||
| } | } | ||
| - | cr <- data.frame(rbind(lcrust,mcrust,ucrust)); | + | for (n in ns) |
| + | oib <- c(oib, subset(cmp, element == n)$OIB); | ||
| + | |||
| + | cr <- data.frame(rbind(lcrust,ucrust)); | ||
| names(cr) <- c(paste0(ns,'_ppm')); | names(cr) <- c(paste0(ns,'_ppm')); | ||
| Строка 84: | Строка 85: | ||
| ret <- c(); | ret <- c(); | ||
| - | values <- cbind(c(ppm_data$Name, "Lower Crust", "Middle Crust", "Upper Crust"), rowApply(`/`,ds,pmsc)); | + | values <- cbind(c(ppm_data$Name, "Lower Crust", "Upper Crust"), rowApply(`/`,ds,pmsc)); |
| names(values)[1] <- 'Name'; | names(values)[1] <- 'Name'; | ||
| Строка 91: | Строка 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); | ||
| Строка 102: | Строка 103: | ||
| </Code> | </Code> | ||
| - | {{tag>spdgrams chondrite}} | + | |
| + | {{tag>spdgrams mantle}} | ||