R/01-predictNearestCluster.R

In Pandora-IsoMemo/iso-app: Pandora & IsoMemo spatiotemporal modeling

predictNearestCluster <- function(object, newdata){
  centers <- object$centers
  n_centers <- nrow(centers)
  dist_mat <- as.matrix(dist(rbind(centers, newdata)))
  dist_mat <- dist_mat[-seq(n_centers), seq(n_centers)]
  max.col(-dist_mat)
}