addObjectToArea: Adds An Object To The Area

In RSSOP: Simulation of Supply Reservoir Systems using Standard Operation Policy

Description

Adds an object to the an object inherited from class createArea

Usage

 addObjectToArea(area, object, type) 

Arguments

area	an object inherited from creatArea class
object	an object to be added to area
type	type of the object to added to area: "reservoir", "demand", "hydrometeorology"

Value

an object inherited from class of creatArea

Author(s)

Rezgar Arabzadeh, Parisa Aberi, Kaveh Panaghi

Examples

# Create an area
object<-createArea(name    ="Zarineh"  ,
                   location="kurdistan",
                   start   =c(1900,1)  ,
                   end     =c(1962,1))

# Create an Agricultural demand site
var<-sin(seq(0.2,pi-0.2,length.out=12))*100/sum(sin(seq(0.2,pi-0.2,length.out=12)))
dem<-createDemandSite(type="agricultural"       ,
                          demandName="Agri"     ,
                          demandCode=1          ,
                          annualUseRate=1.3084  ,
                          annualVariation=var   ,
                          area=1000             ,
                          cycle=TRUE            ,
                          numberOfCycles=62     ,
                          supplierCode=1        ,
                          downstreamCode=0      ,
                          priority=1)
# Create a Reservoir
AV<-data.frame(A=seq(2  ,30 ,length.out=10),
               V=seq(100,700,length.out=10))
res<-createReservoir(type                   ="storage",
                     name                   ="Bukan" ,
                     reservoirCode          =1        ,
                     downstreamReservoirCode=0        ,
                     geometry               =list(sMin      =100 ,
                                                  sMax      =700 ,
                                                  volumeArea=AV))

# Creat a meteorological object
met<-hydrometeorology(Inflow        =rlnorm(744,2,0.2),
                      netEvaporation=runif(744,0,0.2) ,
                      reservoirCode =1)
# add object to The area
object<-addObjectToArea(area  =object,
                        object=met   ,
                        type  ="hydrometeorology")
object<-addObjectToArea(area  =object,
                        object=dem   ,
                        type  ="demand")
object<-addObjectToArea(area  =object,
                        object=res   ,
                        type  ="reservoir")

RSSOP documentation built on May 2, 2019, 4:53 a.m.