Различия

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

--- classifydiag:cpx_ca_mg_fe [2019/09/11 12:46]
f0ma
+++ classifydiag:cpx_ca_mg_fe [2019/09/11 13:15] (текущий)
f0ma
@@ Строка 31: / Строка 31: @@
 {
 ds <- selectNames(recalc.cpx_4cat_norm(wtp_data),
-                  c('Name','Ca_pfu','Mg_pfu','Fe_pfu','Fe_p2_pfu','Fe_p3_pfu','Na_pfu'));
+                  c('Name','Ca_pfu','Mg_pfu','Mn_pfu','Fe_pfu','Fe_p2_pfu','Fe_p3_pfu','Na_pfu'));
 marks <- data.frame(Label=c('Diopside','Hedenbergite','Augite','Pigeonite','Clinoenstotite','Clinoferrosilite'),
@@ Строка 38: / Строка 38: @@
                      Z=c(0.12,0.48,0.33,0.44,0.18,0.78));
-lines <- data.frame(X1 = c(0.50),
+lines <- data.frame(X1 = c(0.50, 0.55, 0.80, 0.95, 0.25,  0.475),
-                    Y1 = c(0.50),
+                    Y1 = c(0.50, 0.45, 0.20, 0.05, 0.50,  0.05),
-                    Z1 = c(0.00),
+                    Z1 = c(0.00, 0.00, 0.00, 0.00, 0.25,  0.475),
-                    X2 = c(0.50),
+                    X2 = c(0.00, 0.00, 0.00, 0.00, 0.275, 0.50),
-                    Y2 = c(0.00),
+                    Y2 = c(0.50, 0.45, 0.20, 0.05, 0.45,  0.00),
-                    Z2 = c(0.50));
+                    Z2 = c(0.50, 0.55, 0.80, 0.95, 0.275, 0.50));
 pts <- data.frame (Name = ds$Name,
                    X = ds$Mg_pfu,
                    Y = ds$Ca_pfu,
-                   Z = ds$Fe_pfu);
+                   Z = ds$Fe_pfu + ds$Mn_pfu);
 labels <- c("En", "Wo", "Fs");