tests/run_existente.r

In baseno/suds:

ini <- Sys.time()


setwd("/home/delgado/proj/suds")


source("./R/initial_states_existente.r")

require(suds)
require(hydraulics)

#I0 <- I0[0:200,]

subbasin_out <- subbasin.template

l.rps <- loop(subbasin_out,I0,strahler)

runoff <- l.rps[[1]] %>% saveRDS(.,"./tests/runoff_existente.rds")
pipe <- l.rps[[2]] %>% saveRDS(.,"./tests/pipe_existente.rds")
structure <- l.rps[[3]] %>% saveRDS(.,"./tests/structure_existente.rds")
sb <- l.rps[[4]] %>% saveRDS(.,"./tests/sb_existente.rds")
    
cat("\n",Sys.time()-ini,"\n")