Основной пересчет программы TPF

Пересчет производится на основе заданного пользователем числа атомов кислорода.

Кислородный метод программы TPF.

source('utilities_tpf.r')

recalc.tpf_omesod <- function (wtp_data, count=12, ...)
{
rn <- tpf.rename(wtp_data);
clk <- tpf.omesod(rn,count,999);
return(tpf.unrename(clk,wtp_data$Name));
}