Различия

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

--- recalc:wtp_comp_to_atp [2016/01/12 14:38]
admin
+++ recalc:wtp_comp_to_atp [2018/11/12 15:08] (текущий)
@@ Строка 1: / Строка 1: @@
-====== Пересчет весовых процентов оксидов на атомные проценты ======
+====== Common: Compound WTP to ATP ======
 Пересчет весовых процентов оксидов на атомные проценты.
-=== Подробнее ===
+=== Details ===
-^ Информация о публикации |  |
+^ Reference |  |
-^ Ссылка |  |
+^ Input | wtp |
-^ Учитываемые компоненты |  |
+^ Results | atp |
-^ Выводимые компоненты |  |
+<use:recalc.wtp_comp_to_atp>
-^ [[:ppy:mod_recalc#wtp_comp_to_atp|Рассчитать]] |  |
+<test:recalc.wtp_comp_to_atp>
-=== Код ===
+<WRAP center round todo 60%>
+  * заголовок
+  * краткое описание
+  * статья
+  * ссылка
+  * карточка
+  * подробное описание
+  * <del>код</del>
+  * тест
+</WRAP>
+=== Source ===
 <Code linenums lang-r>
@@ Строка 17: / Строка 28: @@
 oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F);
-recalc.wtp_comp_to_atp <- function (wtp_data, cat_only = T, ...)
+recalc.wtp_comp_to_atp <- function (wtp_data, cat_only = F, ...)
 {
@@ Строка 49: / Строка 60: @@
   data_atp$Name <- NULL;
-  if(!cat_only)
+  data_atp$F <- cF;
-  {
+  data_atp$Cl <- cCl;
-    data_atp$F <- cF;
+  data_atp$O <- cO;
-    data_atp$Cl <- cCl;
-    data_atp$O <- cO;
+  data_sum <- rowSums(data_atp)[1];
-  }
+  data_atp_ret <- rowApply('/',data_atp,data_sum)*100;
-  else
-  {
-    data_atp$F <- NULL;
-    data_atp$Cl <- NULL;
-    data_atp$O <- NULL;
-  }
-  data_sum <- rowSums(data_atp);
+  names(data_atp_ret) <- paste0(names(data_atp_ret),'_atp');
-  data_atp <- rowApply('/',data_atp,data_sum)*100;
-  names(data_atp) <- paste0(names(data_atp),'_atp');
-  return(cbind(Name=wtp_data$Name,data_atp));
+  return(cbind(Name=wtp_data$Name,data_atp_ret));
 }
 </Code>
 {{tag> order11}}