R/spatial_weights.R

In ZGIS/spatial-analysis: Examples of importing data and performing various hot spot analysis methods

#' Calculate spatial weights for points&/polygons
#' @param tweets SpatialPointsDataFrame containing tweets
#' @param distance distance metrics
#' @param d1 fixed distance minimum
#' @param d2 fixed distance maximum
#' @importFrom spdep localmoran 
#' @export 
calc_weights <- function(tweets, distance, d1,d2) {
  
  if(strcmp(distance, "fixed")){
    nb <- dnearneigh(coordinates(tweets), d1, d2)
  } else if(strcmp(distance, "knn")){
    nb <- knn2nb(knearneigh(tweets))
  }
  return(nb)
}