R/closestCenterPos.R

In beautifulMountain/PdPDB: Pattern Discovery in PDB Structures of Metalloproteins

closestCenterPos <- function (pos, centers){
  
  nextCenter <- 0
  i<-1
  
  repeat{
    
    nextCenter <- centers[i]
    
    if((centers[i]>=pos)&&(!is.na(centers[i]>=pos))){
      break
    }
    
    i<-i+1
  }
  
  nextCenter
  
}