# NOT RUN {
Area=200
lossMethod<-"SCS"
lossParams<-list(CN=65)
transformMethod<-c("snyder","SCS","user")
simulation<-list(start='2000-01-01',end='2000-01-7',by=7200)
precipitation<-sin(seq(0.1,pi-0.1,length.out=10))*20
transformParams=list(Tlag=4,Cp=0.15,Ct=2,L=100,Lc=15)
UH<-data.frame(t=1:20,q=sin(seq(0,pi,length.out=20))*1)
SCS_loss<-loss(precipitation,lossMethod,lossParams)
snyder_transformation<-transform(rainfall=SCS_loss,
transformMethod=transformMethod[1],
transformParams,Area,UH=NA,simulation)
SCS_transformation <-transform(rainfall=SCS_loss,
transformMethod=transformMethod[2],
transformParams,Area,UH=NA,simulation)
user_transformation <-transform(rainfall=SCS_loss,
transformMethod=transformMethod[3],
transformParams,Area,UH,simulation)
# }
Run the code above in your browser using DataLab