Skip to main content

Browse the archive

https://github.com/ctlab/phantasus
16 November 2021, 10:05:24 UTC
Revision 19e41bfbd2d50e30a0cc571c0293843bb880bc30 authored by clevermx on 25 October 2021, 16:44:38 UTC, committed by clevermx on 25 October 2021, 16:44:38 UTC 
Merge branch 'space_jobs' of ssh://git.jetbrains.space/ctlab/phantasus/phantasus into space_jobs
2 parent s 8aa72dd + 9093256
Raw File
Tip revision: 19e41bfbd2d50e30a0cc571c0293843bb880bc30 authored by clevermx on 25 October 2021, 16:44:38 UTC
Merge branch 'space_jobs' of ssh://git.jetbrains.space/ctlab/phantasus/phantasus into space_jobs
Tip revision: 19e41bf
subsetES.R 
#' Subsets es, if rows or columns are not specified, all are retained
#' @param es ExpressionSet object.#'
#' @param columns List of specified columns' indices (optional), indices start from 0#'
#' @param rows List of specified rows' indices (optional), indices start from 0
#' @return new expression set `es`
#'
#'
subsetES <- function(es, columns = c(), rows=c()) {
    rows <- getIndicesVector(rows, nrow(exprs(es)))
    columns <- getIndicesVector(columns, ncol(exprs(es)))

    es <- es[rows, columns]
    assign("es", es, envir = parent.frame())
}
back to top