Различия

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

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

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
classifydiag:th_hf_nb_wood [2016/03/07 00:12]
admin
classifydiag:th_hf_nb_wood [2018/11/12 15:07] (текущий)
Строка 3: Строка 3:
 ==== Details ==== ==== Details ====
  
-<data plot> +Reference ​| | 
-Reference ​[wiki]: +Data bulk | 
-Databulk +Input | Th_ppmHf_ppmNb_ppm | 
-Input: Th_gptHf_gptNb_gpt + 
-</data>+<use:​classifydiag.th_hf_nb_wood>​ 
 +<​test:​classifydiag.th_hf_nb_wood>
  
 <WRAP center round todo 60%> <WRAP center round todo 60%>
Строка 27: Строка 28:
 classifydiag.th_hf_nb_wood <- function (wtp_data, ...) classifydiag.th_hf_nb_wood <- function (wtp_data, ...)
 {  ​ {  ​
-ds <- selectNames(wtp_data,​c('​Name','​Th_gpt', 'Hf_gpt', 'Nb_gpt'))+ds <- selectNames(wtp_data,​c('​Name','​Th_ppm', 'Hf_ppm', 'Nb_ppm'))
  
 pts <- data.frame(Name=ds$Name,​ pts <- data.frame(Name=ds$Name,​
-                  X = ds$Th_gpt+                  X = ds$Th_ppm
-                  Y = ds$Hf_gpt/3, +                  Y = ds$Hf_ppm/3, 
-                  Z = ds$Nb_gpt/16);+                  Z = ds$Nb_ppm/16);
  
-labels <- c("Th_gpt", "Hf_gpt/3", "Nb_gpt/16");+labels <- c("Th", "Hf/3", "Nb/16");
    
 lines <- data.frame(X1 = c(0.15, 0.15, 0.24, 0.56, 0.15, 0.35, 0.08, 0.03, 0.35, 0.54, 0.58, 0.27, 0.13, 0.05, 0.57, 0.63, 0.40, 0.32), lines <- data.frame(X1 = c(0.15, 0.15, 0.24, 0.56, 0.15, 0.35, 0.08, 0.03, 0.35, 0.54, 0.58, 0.27, 0.13, 0.05, 0.57, 0.63, 0.40, 0.32),
Строка 46: Строка 47:
                      ​X=c(0.17,​ 0.24, 0.43, 0.60),                      ​X=c(0.17,​ 0.24, 0.43, 0.60),
                      ​Y=c(0.65,​ 0.43, 0.18, 0.28),                      ​Y=c(0.65,​ 0.43, 0.18, 0.28),
-                     ​Z=c(0.18, 0.33, 0.39, 0.12));+                     ​Z=c(0.21, 0.33, 0.39, 0.12));
 ret <- c(); ret <- c();
 ret$type <- "​ternogram";​ ret$type <- "​ternogram";​
Строка 57: Строка 58:
 } }
 </​Code>​ </​Code>​
 +{{tag>​classifydiag wholerock}}
  • classifydiag/th_hf_nb_wood.1457309570.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)