R/hist.influenceSSN.r

In SSN: Spatial Modeling on Stream Networks

hist.influenceSSN <-
function(x, VariableName = "_resid_", xlab, ...)
{
  if(missing(xlab)) xlab = paste("VariableName = ", VariableName)

  if(class(x)[[1]] != "influenceSSN") return("Not a influenceSSN object")
  hist(x$ssn.object@obspoints@SSNPoints[[1]]@point.data[,VariableName], xlab=xlab, main="", ...)

}