R/plotL.graph.R

In MetaLandSim: Landscape and Range Expansion Simulation

plotL.graph <-
function(rl, rlist,nr,species,links,...)
  {
  if(!inherits(rl, "landscape") & !inherits(rl, "metapopulation"))
  #if (class(rl)!="landscape" & class(rl)!="metapopulation") 
  {
    stop(paste(rl, " should be either, an object of class class 'landscape' or 'metapopulation'.", sep=""), call. = FALSE)
  }
    element <- extract.graph(rl,rlist,nr)
    element1 <- cluster.id(element)
    plot_graph(element1,species=species,links)
  }