Skip to content

Instantly share code, notes, and snippets.

@troyhill
Created February 22, 2019 20:15
Show Gist options
  • Save troyhill/7753317b0fa815d524aa3f5ff1d7d319 to your computer and use it in GitHub Desktop.
Save troyhill/7753317b0fa815d524aa3f5ff1d7d319 to your computer and use it in GitHub Desktop.
rainfall formula exploration
# script to explore the SFWMD's rainfall formula
a <- list.files("C:/RDATA/rainfall_formula/", pattern = "\\.txt$", full.names = TRUE)
rain <- read.delim(a[4], skip = 1)
head(rain)
pet <- read.delim(a[3], skip = 1)
head(pet)
outStage <- read.delim(a[1], skip = 4)
outStage_names <- read.delim(a[1], skip = 1)
names(outStage) <- names(outStage_names)
outFlow <- read.delim(a[2], skip = 6)
outFlow_names <- read.delim(a[2], skip = 1)
names(outFlow) <- names(outFlow_names)
head(outFlow)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment