#! /usr/bin/Rscript
devtools::load_all()
# library(heatwave)
# findprd(c(1,2,3,4,-4.5),1,3)
tmax <- dTmax[[2]]
# print(tmax)
b_kong = HW_3con_rcpp(tmax, TRS_high = 25, TRS_low = 20, mink=3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.