R/getDistancePointers.R

Defines functions getDistancePointers

## function to convert a vector of strings (either prefab distances,
## C++ code definitions or file names containing code definitions)
## to a vector of function pointers. 

## first version (NOT WORKING) is simply to cut the appropriate code
## from the supersom function

getDistancePointers <- function(dist.fcts,
                                prefabDists = c("sumofsquares", "euclidean",
                                                "manhattan", "tanimoto"),
                                maxNA.fraction) {  
  ## Text distance functions can be predefined names, C++ function
  ## definitions, or file names containing these definitions.
  
  dist.ptrs <- vector(length(dist.fcts), mode = "list")
  
  ## prefab dists first
  if (any(prefab.idx <- dist.fcts %in% prefabDists)) {
    ## first convert to a factor, and then to a pointer...
    dist.ptrs[prefab.idx] <-
      CreateStdDistancePointers(factor(dist.fcts[prefab.idx],
                                       levels = prefabDists),
                                maxNA.fraction > 0L)
  }
  
  ## for the rest:
  if (any(rest.idx <- !prefab.idx)) {
    rest.idx <- which(rest.idx)
    for (rdx in rest.idx) {
      if (!exists(dist.fcts[rdx])) {
        stop(paste("Cannot find (custom) distance function: ", dist.fcts[rdx], sep=""))
      }
      dist.ptrs[[rdx]] <- eval(call(dist.fcts[rdx]))
    }
  }
  
  dist.ptrs
}

Try the kohonen package in your browser

Any scripts or data that you put into this service are public.

kohonen documentation built on Aug. 29, 2017, 1:07 a.m.