R/sim.default.R

In WRSS: Water Resources System Simulator

Defines functions sim.default

Documented in sim.default

sim.default <-
function(object)
{
   if (missing(object))
   {
      stop("Missing basin object!")
   }
   result<-list()
   operation<-sim.base(object)
   result$operation<-operation
   result$call<-match.call()
   class(result)<-"sim"
   return(result)
}

Try the WRSS package in your browser