Common: Atomic WTP to ATP

Пересчет весовых процентов оксидов на атомные проценты.

Использовать Проверить

elements <- read.csv("constants_elements.csv",stringsAsFactors=F);

recalc.wtp_at_to_atp <- function (wtp_data, ...)
{
  data <- wtp_data[,grep("_wtp", names(wtp_data))];
  
  data_atp = data.frame(Name=wtp_data$Name);

  mw <- c();

  for (wtnamew in names(data))
  {
  wtname <- gsub('_wtp', "", wtnamew);

  econst = subset(elements,element==wtname) 
  mw <- c(mw,c(1/econst$weight));
  
  }

  data_st1 <- data/100;
  data_st2 <- rowApply('*',data_st1,mw);
  st2_sum <- rowSum(data_st2);
  data_st3 <- (data_st2/st2_sum)*100;
  
  data_atp <- cbind(data_atp, data_st3);
  
  return(data_atp);
}