R/grnn.distance.R

In GRNNs: General Regression Neural Networks Package

#' grnn distance
#'
#' @param x The dataframe of training predictor dataset
#' @param y The dataframe of training response variables
#' @param fun The distance function
#'
#' @importFrom rdist cdist
#' @return The matrix of distance between a and b
#' @export
#'
#' @examples
#' data("physg")
#' physg.train<-physg[1:10,]
#' physg.test<-physg[11:30,]
#' distance<-grnn.distance(physg.test,physg.train,"bray")
grnn.distance<-function(x,y,fun){
  if ( fun== "euclidean"|fun== "minkowski"|fun== "manhattan"|
       fun== "maximum"|fun== "canberra"|fun== "angular"|
       fun== "correlation"|fun== "absolute_correlation"|
       fun== "hamming"|fun== "jaccard"){
    rdist::cdist(x,y,metric = fun)
  }
  else if (fun== "bray"|fun== "kulczynski"|fun== "gower"|
           fun== "altGower"|fun== "morisita"|fun== "horn"|
           fun== "mountford"|fun== "raup"|fun== "binomial"|
           fun== "chao"|fun== "cao"|fun== "mahalanobis"){
    veg.distance(x,y,fun = fun)
  }
  else
  {print ("The distance funcion is not included in GRNNs, please try other functions.")}
}