Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
utilities_tpf [2016/09/16 13:05] admin |
utilities_tpf [2020/02/19 13:27] (текущий) f0ma |
||
|---|---|---|---|
| Строка 2: | Строка 2: | ||
| <Code linenums lang-r> | <Code linenums lang-r> | ||
| + | |||
| + | source('utilities.r') | ||
| + | |||
| tpf.elements <- read.csv("constants_elements_tpf.csv",stringsAsFactors=F) | tpf.elements <- read.csv("constants_elements_tpf.csv",stringsAsFactors=F) | ||
| Строка 164: | Строка 167: | ||
| os = tpf.sumo(mw) + (mw$F + mw$Cl)/2; | os = tpf.sumo(mw) + (mw$F + mw$Cl)/2; | ||
| - | mw1 <- data.frame(rowApply('*',mw,ll/os)); | + | if (os>theta) { |
| - | mw1[is.nan(mw1)] <- 0; | + | if( os<ll && mw$Fe > (mm-2*os)) { |
| - | + | mw$Fe3 <- mm-2*os; | |
| - | print(mw1); | + | mw$Fe2 <- mw$Fe - mw$Fe2; |
| - | return(mw); | + | }else{ |
| - | + | mw <- rowApply('*',mw,ll/os); | |
| - | mw$Fe3 <- mm-2*os; | + | |
| - | mw$Fe2 <- mw$Fe - mw$Fe2; | + | |
| - | + | ||
| - | print(mw1); | + | |
| - | return(mw); | + | |
| - | + | ||
| - | + | ||
| - | for(i in 1:nrow(mw)) { | + | |
| - | row <- mw[i,]; | + | |
| - | if( os<ll && row$Fe > (mm-2*os[i])) | + | |
| - | { | + | |
| - | # pass | + | |
| - | } | + | |
| - | else | + | |
| - | { | + | |
| - | mw[i,] <- mw1[i,]; | + | |
| } | } | ||
| } | } | ||
| Строка 201: | Строка 188: | ||
| else { clkm = rbind(clkm,clk); } | else { clkm = rbind(clkm,clk); } | ||
| } | } | ||
| - | return(tpf.unrename(clkm,mw$Name)); | + | |
| + | ds <- tpf.unrename(clkm,mw$Name) | ||
| + | return(cbind(data.frame(Name=mw$Name),selectNames(ds, tpf.elements_rename))); | ||
| } | } | ||