Различия

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

--- recalc:wtp_comp_to_atp [2016/01/12 14:34]
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>
@@ Строка 48: / Строка 59: @@
   data_atp$Name <- NULL;
+  data_atp$F <- cF;
+  data_atp$Cl <- cCl;
+  data_atp$O <- cO;
+  data_sum <- rowSums(data_atp)[1];
+  data_atp_ret <- rowApply('/',data_atp,data_sum)*100;
-  if(cat_only)
+  names(data_atp_ret) <- paste0(names(data_atp_ret),'_atp');
-  {
-    data_atp$F <- NULL;
-    data_atp$Cl <- NULL;
-    data_atp$O <- NULL;
-  }else{
-    data_atp$F <- cF;
-    data_atp$Cl <- cCl;
-    data_atp$O <- cO;
-  }
-  data_sum <- rowSums(data_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}}