R/TSNE.R

In CL-CHEN-Lab/User_interface_for_Kronos_scRT: R-package and Shiny App interface for the analysis of single cell replication timing data

#' adds an option to set a seed in Rtsnee
#'
#' @return Rtsne object
#' @importFrom Rtsne Rtsne
#'
#' @export
#'
#' @param X, matrix; Data matrix (each row is an observation, each column is a variable)
#' @param seed, an integer
#' @param ..., other parameters that can be passed to Rtsne
#'
#'

TSNE = function(X, seed, ...) {
  #reset seed on exit
  old_seed = .Random.seed
  on.exit(.Random.seed <<- old_seed)
  # set seed locally
  set.seed(as.integer(seed))
  #run tSNE
  tsne <-
    Rtsne::Rtsne(X = X, ...)
  return(tsne)
}