R/getisord.R

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

#'Perform Getis-Ord
#' @param tweets data to be analyzed
#' @param distance distance metrics
#' @param d1 fixed distance minimum
#' @param d2 fixed distance maximum
#' @importFrom spdep localG 
#' @export 
getisOrd <- function(tweets, distance, d1,d2) {
  nb <- calc_weights(tweets, distance, d1, d2)
  listw <- nb2listw(nb)
  
  return(spdep::localG(as.numeric(as.vector(tweets$tweet_id)), listw, zero.policy=NULL, spChk=NULL, return_internals=FALSE, GeoDa=FALSE))
}