knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(swbr)
library(magrittr)
df <- readr::read_table2("../data/Coshocton_climate_1999.txt")
swb <- swbr::ModelCell$new()

swb$month        <- df$month
swb$day          <- df$day
swb$year         <- df$year
swb$gross_precip <- df$precip
swb$tmin         <- df$tmin
swb$tmax         <- df$tmax

swb$calc_mean_air_temp()
swb$calc_monthly_mean_air_temp()
#calc_mean_air_temp(swb)
#make_date(swb)
#calc_TM_heat_index(swb)


smwesten-usgs/swbr documentation built on Nov. 27, 2019, 2:07 p.m.