R/fromto.R

In skynet: Generates Networks from BTS Data

#' From To function
#'
#' Calculate edges weight from IATA Code
#'
#' @param x igraph object to query
#' @param y origin airport IATA code
#' @param orig "from" or "to" options
#'
#' @examples
#' \dontrun{
#' netDir <- make.netDir(OD_Sample)
#' from_to_stats(netDir$gDir, "JFK", orig = "from")
#'
#' from_to_stats(netDir$gDir, "JFK", orig = "to")
#' }
#'
#' @export
#'


from_to_stats <- function(x, y, orig){

  orig <- as.character(orig)

  if(orig == "from")
    sum(E(x)[from(V(x)[y])]$weight)

  else
    sum(E(x)[to(V(x)[y])]$weight)
}

fromto.stat <- function(...){
  warning(paste("fromto.stat is deprecated, use from_to_stats(), instead."))
  do.call(from_to_stats, list(...))
}

globalVariables(c("from", "to"))