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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.