Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия 		Предыдущая версия
spdgrams:ree_pm_sun_wm_taylor [2018/11/12 15:07]
127.0.0.1 внешнее изменение 		spdgrams:ree_pm_sun_wm_taylor [2025/09/09 12:16] (текущий)
f0ma
Строка 1: Строка 1:
 ====== Primitive mantle, Sun McDonough, 1989 + Crust, 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';​
  
  • spdgrams/ree_pm_sun_wm_taylor.1542035279.txt.gz
  • Последние изменения: 2018/11/12 15:07
  • — 127.0.0.1