inst/divers/forbidden.path.R

forbidden.path <- function(G,ibp){
  V = length(ibp)
  n = nrow(G)
  G[1:ibp[1],(ibp[1]+1):n]=Inf
  for (v in (1:(V-1))){
    G[ (ibp[v]+1): ibp[v+1], (ibp[v+1]+1):n]=Inf
  }
  invisible(G) 
}#end function
MarieEtienne/segTraj documentation built on May 7, 2019, 2:51 p.m.