R/comPts.R

In ick003/SpTMixture: Mixture models with spatio-temporal dependencies

#' Create bonds from Delanay triangles
#'
#' Create bonds from Delanay triangles
#' @param tiles_list parameters to be estimated
#' @keywords mean function
#' @export
#' @examples
#' data("wq_analysis_week2")
#' SPTMData(wq.raw.obs, frequency = "quarter")
comPts = function(tiles_list){
  bds = NULL
  for(i in 1:(length(tiles_list)-1)){
    temp.tile = tiles_list[[i]]
    temp.x = temp.tile$x
    temp.y = temp.tile$y
    for(j in (i+1):length(tiles_list)){
      temptemp.tile = tiles_list[[j]]
      dist.tiles = dist(x = cbind(c(temp.x,temptemp.tile$x), c(temp.y,temptemp.tile$y)))
      if(min(dist.tiles)==0){
        bds = rbind(bds, c(i,j))
      }
    }
  }
  return(bds)
}