center {autonomics} | R Documentation |
Center samples
center( object, selector = rep(TRUE, nrow(object)) == TRUE, fun = "median", verbose = TRUE )
object |
SummarizedExperiment |
selector |
logical vector (length = nrow(object)) |
fun |
aggregation function (string) |
verbose |
TRUE/FALSE |
SummarizedExperiment
require(magrittr) require(matrixStats) file <- download_data('fukuda20.proteingroups.txt') object <- read_proteingroups(file, plot=FALSE, impute=FALSE) fdata(object)$housekeeping <- FALSE fdata(object)$housekeeping[order(rowVars(values(object)))[1:100]] <- TRUE values(object)[, object$subgroup=='Adult'] %<>% add(5) plot_sample_densities(object) plot_sample_densities(center(object)) plot_sample_densities(center(object, housekeeping))