From 944855ea6eff039779df7b9b581c1eef7d3a6f55 Mon Sep 17 00:00:00 2001 From: Pedro Rau <60294726+hydrocodes@users.noreply.github.com> Date: Wed, 1 Jun 2022 17:49:39 -0500 Subject: [PATCH] Update codelines.R --- tutorial/codelines.R | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tutorial/codelines.R b/tutorial/codelines.R index e55e2de..f3836b4 100644 --- a/tutorial/codelines.R +++ b/tutorial/codelines.R @@ -47,6 +47,18 @@ init <- 0 #m3/s output <- "D:/.../output2.txt" mcunge(inflow, Qo, To, Vo, L, m, dt, init) +library(hydRopUrban) +data <- read.table(file.choose(), header=TRUE) +inflow <- data$Discharge +Qo <- 0 #m3/s +B <- 20 #m +L <- 2500 #m +S <- 0.0005 #slope +n <- 0.05 #rugosity +dt <- 0.1 #hr +output <- "D:/.../output_convex.txt" +convex(inflow, Qo, B, L, S, n, dt) + library(hydRopUrban) data <- read.table(file.choose(), header=T) inflow <- data$Discharge