Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
utilities [2016/01/28 14:08] admin |
utilities [2020/02/19 14:28] (текущий) f0ma |
||
|---|---|---|---|
| Строка 5: | Строка 5: | ||
| rowApply <- function(fun,tbl,vec) data.frame(mapply(fun, tbl, vec, SIMPLIFY = F)); | rowApply <- function(fun,tbl,vec) data.frame(mapply(fun, tbl, vec, SIMPLIFY = F)); | ||
| - | selectNames <- function(tbl,namevec) { | + | selectNames <- function(tbl, namevec, saveNamesColumn = TRUE) { |
| rtbl <- tbl; | rtbl <- tbl; | ||
| for ( n in namevec ) if (!n %in% names(rtbl)) rtbl[[n]] <- 0.0; | for ( n in namevec ) if (!n %in% names(rtbl)) rtbl[[n]] <- 0.0; | ||
| for ( n in names(rtbl) ) if (!n %in% namevec) rtbl[[n]] <- NULL; | for ( n in names(rtbl) ) if (!n %in% namevec) rtbl[[n]] <- NULL; | ||
| - | return(rtbl[,namevec]); | + | if ((!saveNamesColumn) || ('Name' %in% namevec) || (!'Name' %in% names(rtbl))){ |
| + | return(rtbl[,namevec]); | ||
| + | } else { | ||
| + | rtbl <- rtbl[,namevec]; | ||
| + | rtbl <- cbind(data.frame(Name = rtbl$Name), rtbl); | ||
| + | return(rtbl); | ||
| + | } | ||
| } | } | ||
| Строка 22: | Строка 28: | ||
| if(as.numeric(row[[target_col]]) >= as.numeric(target_max)) | if(as.numeric(row[[target_col]]) >= as.numeric(target_max)) | ||
| { | { | ||
| - | row[[c]] = as.numeric(row[[target_col]]) - target_max; | + | row[[c]] = as.numeric(row[[target_col]]) - as.numeric(target_max); |
| - | row[[target_col]] = target_max; | + | row[[target_col]] = as.numeric(target_max); |
| - | break | + | break; |
| } | } | ||
| else | else | ||
| { | { | ||
| - | row[[c]] = 0.0; | + | row[[c]] = as.numeric(0.0); |
| } | } | ||
| } | } | ||