Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
spdgrams:ree_pm_sun_wm_taylor [2025/09/09 11:52] f0ma |
spdgrams:ree_pm_sun_wm_taylor [2025/10/25 12:08] (текущий) f0ma |
||
|---|---|---|---|
| Строка 63: | Строка 63: | ||
| } | } | ||
| } | } | ||
| + | |||
| + | for (n in ns) | ||
| + | oib <- c(oib, subset(cmp, element == n)$OIB); | ||
| cr <- data.frame(rbind(lcrust,ucrust)); | cr <- data.frame(rbind(lcrust,ucrust)); | ||
| Строка 82: | Строка 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'; | ||
| Строка 89: | Строка 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); | ||