Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
classifydiag:amf [2016/03/06 18:19] admin |
classifydiag:amf [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 5: | Строка 5: | ||
=== Details === | === Details === | ||
- | <data plot> | + | | Reference | | |
- | Reference [wiki]: | + | | Data | | |
- | Data: bulk | + | | Input | K2O_wtp, Na2O_wtp, MgO_wtp, FeO_wtp, Fe2O3_wtp | |
- | Input: K2O_wtp, Na2O_wtp, MgO_wtp, FeO_wtp, Fe2O3_wtp | + | |
- | </data> | + | <use:classifydiag.amf> |
+ | <test:classifydiag.amf> | ||
<WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
- | * заголовок | + | * <del>заголовок</del> |
- | * краткое описание | + | * <del>краткое описание</del> |
* статья | * статья | ||
* ссылка | * ссылка | ||
- | * карточка | + | * <del>карточка</del> |
* подробное описание | * подробное описание | ||
- | * код | + | * <del>код</del> |
* тест | * тест | ||
</WRAP> | </WRAP> | ||
- | === Код метода === | + | === Source === |
<Code linenums lang-r> | <Code linenums lang-r> | ||
Строка 38: | Строка 39: | ||
labels <- c("Alk", "FeO*", "MgO"); | labels <- c("Alk", "FeO*", "MgO"); | ||
- | lines <- data.frame(X1 = c(0.70, 0.67), | + | lines <- data.frame(X1 = c(0.68, 0.63, 0.59, 0.46, 0.37, 0.30, 0.25, 0.22, 0.20, 0.19, 0.18, 0.17), |
- | Y1 = c(0.30, 0.33), | + | Y1 = c(0.29, 0.32, 0.35, 0.44, 0.50, 0.53, 0.55, 0.55, 0.55, 0.52, 0.47, 0.40), |
- | Z1 = c(0.03, 0.06), | + | Z1 = c(0.03, 0.05, 0.06, 0.10, 0.15, 0.17, 0.20, 0.23, 0.25, 0.29, 0.36, 0.43), |
- | X2 = c(0.67, 0.50), | + | X2 = c(0.63, 0.59, 0.46, 0.37, 0.30, 0.25, 0.22, 0.20, 0.19, 0.18, 0.17, 0.15), |
- | Y2 = c(0.33, 0.47), | + | Y2 = c(0.32, 0.35, 0.44, 0.50, 0.53, 0.55, 0.55, 0.55, 0.52, 0.47, 0.40, 0.35), |
- | Z2 = c(0.06, 0.11)); | + | Z2 = c(0.05, 0.06, 0.10, 0.15, 0.17, 0.20, 0.23, 0.25, 0.29, 0.36, 0.43, 0.50)); |
+ | |||
+ | marks <- data.frame(Label=c("Tholeiitic", "Calc-Alcaline"), | ||
+ | X=c(0.18, 0.57), | ||
+ | Y=c(0.60, 0.15), | ||
+ | Z=c(0.22, 0.28)); | ||
ret <- c(); | ret <- c(); | ||
ret$type <- "ternogram"; | ret$type <- "ternogram"; | ||
Строка 49: | Строка 56: | ||
ret$labels <- labels; | ret$labels <- labels; | ||
ret$lines <- lines; | ret$lines <- lines; | ||
+ | ret$marks <- marks; | ||
return(ret); | return(ret); | ||
} | } | ||
</Code> | </Code> | ||
+ | |||
+ | {{tag>classifydiag}} |