Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
spdgrams:lan_c1_chondrite_sun_wm_sun [2016/12/19 00:15] f0ma |
spdgrams:lan_c1_chondrite_sun_wm_sun [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 45: | Строка 45: | ||
| pmsc <- c(pmsc, subset(cmp, element == n)$c1_chondrite); | pmsc <- c(pmsc, subset(cmp, element == n)$c1_chondrite); | ||
| - | lcrust <- c(); | + | nmorb <- c(); |
| - | mcrust <- c(); | + | emorb <- c(); |
| - | ucrust <- c(); | + | oib <- c(); |
| for (n in ns) { | for (n in ns) { | ||
| - | if(n %in% ocean$Element) | + | if(n %in% ocean$element) |
| { | { | ||
| - | nmorb <- c(lcrust, subset(ocean, Element == n)$N_MORB); | + | nmorb <- c(nmorb, subset(ocean, element == n)$N_MORB); |
| - | emorb <- c(mcrust, subset(ocean, Element == n)$E_MORB); | + | emorb <- c(emorb, subset(ocean, element == n)$E_MORB); |
| - | oib <- c(ucrust, subset(ocean, Element == n)$OBI); | + | oib <- c(oib, subset(ocean, element == n)$OIB); |
| } | } | ||
| else | else | ||
| Строка 92: | Строка 92: | ||
| return(ret); | return(ret); | ||
| + | } | ||
| + | |||
| + | spdgrams.lan_c1_chondrite_sun_wm_sun.test <- function() | ||
| + | { | ||
| + | spdgrams.lan_c1_chondrite_sun_wm_sun(data.frame(Name=c('Test'),Eu_ppm=c(34.5))); | ||
| } | } | ||