R/fast_tsne.R

fast_tsne <- function(dat,theta=0.05, nthreads=12, perplexity=20,...){
  source("~/src/FIt-SNE/fast_tsne.R")
  fast.tsne.df <- fftRtsne(dat, theta=theta,nthreads = nthreads, perplexity=perplexity, fast_tsne_path="~/src/FIt-SNE/bin/fast_tsne",...)
  row.names(fast.tsne.df)= row.names(dat)
  colnames(fast.tsne.df)=c("Lim1","Lim2")
  fast.tsne.df = as.data.frame(fast.tsne.df)
}
AllenInstitute/scrattch.hicat documentation built on July 4, 2019, 1:40 p.m.