R/shortestPath.R

In tera-insights/gtStats: Higher Level Statistical Functions for Grokit

ShortestPath <- function(data, inputs, outputs) {
  if (missing(inputs))
    inputs <- convert.schema(data$schema)
  else
    inputs <- substitute(inputs)
  inputs <- convert.exprs(inputs)

  if (length(inputs) != 4)
    stop("4 inputs expected.");

  outputs <- substitute(outputs)
  check.atts(outputs)
  outputs <- convert.atts(outputs)
  if (length(outputs) != 2)
    stop("2 outputs expected.")

  gla <- GLA(statistics::Shortest_Path)

  Aggregate(data, gla, inputs, outputs)
}