# Set up the time and outflow rate vectors
time <- seq(0, 999)

set.seed(123) # Set a seed for reproducibility
outflow <- runif(1000, min = 10, max = 20)
#outflow <- seq(10, 20, length.out = length(time))

# Combine the time and outflow rate vectors into a data frame
df <- data.frame(time, outflow)

# Save the data frame as a CSV file
write.csv(df, "outflow.csv", row.names = FALSE)