R/utils.R

In nucim: Nucleome Imaging Toolbox

Defines functions find.mode cfl.helper comparefilelist

comparefilelist<-function(files,files2)
  {
  w<-unlist(lapply(files,cfl.helper,files2))
  return(files[!w])
}
  
cfl.helper<-function(file, files2)
{
  return(any(file==substr(files2,1,str_length(file))))
}

find.mode<-function(x)
{
  d<-density(x)
  return(d$x[which(d$y==max(d$y))[1]])
}

Try the nucim package in your browser