Nothing
#' Scale data
#'
#' This function takes an object of class iCellR and scales the normalized data.
#' @param x An object of class iCellR.
#' @return An object of class iCellR.
#' @export
data.scale <- function (x = NULL) {
if ("iCellR" != class(x)[1]) {
stop("x should be an object of class iCellR")
}
DATA <- x@main.data
NormLog = log2(DATA + 1)
NormLog = as.data.frame(t(NormLog))
TopNormLogScale <- as.data.frame(t(scale(NormLog, center=F)))
attributes(x)$scaled.data <- TopNormLogScale
return(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.