Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
spdgrams:lan_c1_chondrite_sun_wm_sun [2016/12/19 00:16] f0ma |
spdgrams:lan_c1_chondrite_sun_wm_sun [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 50: | Строка 50: | ||
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))); | ||
} | } | ||